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Preface 


This book is an expression of the simple things in life. We often face 
challenges, particularly in technological areas, that are so complex they 
only ‘‘boggle the mind.” Apple Games goes beyond that or short of that, 
depending on your perspective. It is short, simple, and sweet. This book 
shows you how several complete, ready-to-run, and entertaining games 
were conceived, designed, and implemented. 

In addition to game programs, there are two utility programs. Shape 
Table Generator can be used to develop your own Apple graphics. Master 
Catalog can be used to bring order to your collection of programs. 

Apple Games contains intermediate-level programs. Most are written 
in BASIC, although some include special machine-language routines that 
increase program speed and execution. There are complete listings and 
explanations for every program. 

Now, your question might be “What can I do with these games?”’. 
Well, you could play them, but that is not their greatest value. Because the 
concepts used in these games are documented and explained, they can be 
used in your programming. In this way, you will not only have fun, you 
will learn. 

Take time to study the program listings. Then, if you feel adventurous, 
‘poke around”’ and change lines to see “‘what happens.’’ You may be 
surprised at what you can do. 

One of the easiest ways to test your new programming skills is to 
change a program so it uses different input. For example, some of the 
programs use game paddles and/or joysticks. If you don’t have either, 
change the input routines to use the keyboard. By changing appropriate 
sections, you can learn more about programming. 

If you purchased this book as part of a Combo Pack, you have the 
programs on disk. If you bought the book separately, you have to type in 
the listings. The programs, when entered as they appear in the book, are 
designed to be controlled from a main menu. The menu program is in 
Section 1. It is best to begin reading from there. 

NOTE: The first line of each program includes a REMark statement. 
This statement contains the name of the program. Use this name when 
saving the program to disk, otherwise, the menu will not work correctly. 

Each chapter is comprised of several parts. The first part is a general 
Statement about the program. The second is the rules or instructions for 
using the game or program. The third is a set of programming notes that 
will explain the operation of different parts of the program. Finally, each 
chapter contains the program listing for the game or program detailed. 


As you play the games, study the programs, and use, explore and learn 
from this book, I hope you will have more than a little fun. After all, that is 
part of what computers and games are all about. 

Allen Wyatt 


This book is dedicated to my children, Allen Lee and Eric Christopher. 
May they always discover the joy of learning through play. 
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A NOTE TO THE READER 


The programs in this book were not written as applications software 
but as educational examples of what your personal computer can do. All 
of the programs have been tested and work on the machine configuration 
for which they were designed. The programs are unprotected. This 
means that you can modify them to better understand how they work or to 
fit a different machine configuration. 


What Is a Combo Pack? 


A Combo Pack, like this package, is a step beyond your average 
technical book. While most books give you programming examples 
through printed listings (which we do here), Combo Packs provide the 
book and the listings recorded on magnetic media, either disk, cassette 
tape, or both. 

Every effort has been made to be clear, concise, and informative about 
how these programs and routines work. If you experience any difficulty 
with the software operations, the solution can be found in the book or in 
your computer manuals. 

We are rather proud of the time and effort that went into preparing the 
Combo Pack. If you have purchased the Combo Pack and have enjoyed 
using it, let us know your thoughts. Your comments will be valuable in 
preparing future Combo Packs. 


LOADING INSTRUCTIONS 


The disk accompanying this Combo Pack contains the program listings 
printed in the book. To use the Apple Games disk, you must have a 48K 
Apple II compatible system, with Applesoft® in ROM or on a Language 
(RAM) card, and one disk drive with DOS 3.3. Game paddles or a 
joystick are required on selected games. 

To use Apple Games, follow these steps: 


1. With your computer turned off, insert the Apple Games disk in the disk 
drive (drive one if you have more than one disk drive). 


2. Turn your computer on. 


3. In a few moments, the Apple Games demonstration screen will be 
displayed. 


4. Press <ESC> to exit the demonstration screen. 


Applesoft is a registered trademark of Apple Computer Inc. 


5. The Main Menu will be displayed. Press <RETURN> to see the 
second screen of menu choices. Follow the instructions in Section | 


(The Main Menu Program). 


The Apple Games disk is write protected; consequently, you cannot 
make changes to the disk. To alter any of the programs (and as a 
precautionary measure) make a backup copy of the disk as follows: 


1. With your computer turned off, insert a DOS 3.3 System Master 
(supplied by Apple) in the disk drive (drive one if you have more than 


one disk drive). 
. Turn your computer on. 
. Ina few moments, you will see the Apple prompt. 


. Type COPYA and follow the directions on the screen. 


mn SF W WN 


. Label the backup Apple Games disk and put the original in a safe 
place. 


Section 1 


THE MAIN MENU PROGRAM 


The Main Menu Program 


Most disk-based programs are menu driven; the available programs or 
functions can be selected from a list of choices that are clearly and 
conveniently displayed on the screen. Master Catalog (Program 14) uses 
menus extensively. 

The menu for the Apple Games system is simple. It presents 15 choices 
on two screens. The games are listed on the first screen and the remaining 
(miscellaneous) programs are on the second. 

In addition to the program choices, the menu also has an option to exit 
the program. It is a good idea to include a way to exit, because the user 
could become confused and want to end the program, or he might want to 
go on to something else. 


Program Instructions 


1. The program runs automatically after booting the Apple Games disk 
(after you press <ESC> to exit the demonstration screen). 


2. Press <RETURN> to see the other screen of menu choices. 
3. Enter the number that corresponds to the program you want to run. 


4. Press <RETURN>. The disk light will come on as the program is 
loading, then the program will begin. 


5. When you exit the menu, the computer returns to the Applesoft 
BASIC command level. 
Programming Notes 


The menu program should be saved under the name MENU so when 
you exit a program you can return to the menu to choose another. 


10-4 Program initialization 

5@-11 Print first page of menu choices 
12 Wait for your input 

130-15@ Print second page of menu choices 
160 Wait for your input 

170 Loop to first-page display 
180-200 Prompt and receive your input 
210-260 Run selected program 


1Q@G@@-105@ Program name data 
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Main Menu. 


HGR : TEXT :HOME 
NP = 15:G = 11:M = 15 

DIM PS$(NP) 

FOR X = 1 TO NP:READ P$(X) :NEXT 
HOME :PRINT TAB( 14);"APPLE GAMES" 
VTAB 20:POKE 34,3:HOME 

PRINT "GAME PROGRAMS: " 


PRINT :PRINT 
FOR X = 1 TO G:IF X < 10 THEN PRINT " 


PRINT X;") ";P$(X) 

NEXT 

GOSUB 180 

HOME :PRINT "MISCELLANEOUS:":PRINT :PRINT 

FOR X = G + 1 TO M:PRINT X;") ";P$(X) 

NEXT 

GOSUB 180 

HOME : GOTO 78 

VTAB 21:INPUT "CHOICE OR <RETURN> FOR MORE: ";C 
HS 


IF CHS = CHRS (13) THEN RETURN 

CH = VAL (CHS):IF CH < 1 OR CH > NP THEN RETURN 

POKE 34,0:PRINT 

VTAB 21:HTAB 1:CALL - 868 

IF CH = NP THEN TEXT :HOME :PRINT "HAVE A NICE D 

AY!": GOTO 26d 

AS = "NOW LOADING " + PS$(CH):PRINT TAB( 28 —- LEN 
(AS) / 2);A$ 

PRINT "RUN";PS(CH) 

END 

DATA FLIP FLOP,MASTERMIND, TOWERS, SHERLOCK'S HOME 

»ATTACK OF THE ZARGONS,PHASER PRACTICE 

DATA ACEY-DUCEY,BIG GOVERNMENT 

DATA TIC-TAC=-TOE, QUBIC,DEPTH CHARGE 

DATA SHAPE TABLE GENERATOR 

DATA OPENING CEREMONIES,MASTER CATALOG 

DATA EXIT PROGRAMS 
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Section 2 


GAME PROGRAMS 


1. Flip Flop 


This is an easy-to-play game of chance. You guess what the computer’s 
next move will be. As you will soon discover, this can be very aggravat- 
ing. 

The object of the game is to change a row of 1@ X’s to 10 O’s in as few 
moves as possible. You do this by choosing the position of the character 
you want to change. Sounds easy, right? Well, there’s a catch—the 
computer also may randomly change a character. The computer could 
change the position you selected in the previous move, thus negating your 
choice. Take heart, however, because the odds are in your favor. 

You may find Flip Flop not only aggravating, it may also be addictive. 
Your chance of winning depends on whether or not the Powers-That-Be 
recognize the sincerity of your efforts. Look sincere and don’t berate the 
computer if it takes you longer to win than you first thought. After all, 
your computer is only a tool for the Powers-That-Be! 


Game Rules 


——_ 


. If you are selecting the game from the Main Menu, choose 1. If you are 
not using the menu, run the program. 


. The directions will be displayed. 
. Press a @ through 9 to change the corresponding X to an O, or O to X. 


2 

3 

4. Try to change all 10 X’s to O’s. 

5. Pressing <ESC> at any time ends the game. 
6 


. When the game is finished, you can play again or return to the Main 
Menu. 


Programming Notes 


This game utilizes text and sound. One of the first steps is to POKE a 
very short machine-language sound-generation routine into page 3 of 
memory. This routine is then called throughout the program when sound 
is desired. Fig. 1-1 shows a “‘disassembled”’ listing of the routine; because 
it is used in several programs, you may want to study it. 
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A6 @1 LDX $@Q1 * Duration 

A4 O©@ LOOPI LDY $00 * Pitch 

AD 30 CO LDA $C@3@0 * Toggle speaker 
88 LOOP2 DEY 


D@ FD BNE $0307 * To Loop2 
CA DEX 

DO FS BNE $0302 * To Loopl 
60 RTS * Finished 


Fig. 1-1. Sound-generation routine. 


First, the pitch and duration has to be set when the routine is called. 
This is done by storing (using the POKE command) the desired pitch in 
memory location @, and the duration in memory location |. Then, a call is 
made to 768 ($3@@) to produce the sound. 

Although this routine is short, it is all that is needed to produce a 
controlled sound. The sound is produced by toggling (or clicking) the 
speaker. However, if it was produced using one click right after another 
you would only hear a buzz. To eliminate the buzz, there is a short delay 
between each click on the speaker. This is what produces the pitch. Using 
different pitch values in memory location @ changes the time delay 
between each click of the speaker, thus producing different tones. 

The duration is the length of time the tone will play. The larger the 
number stored in memory location 1, the longer each tone. In this 
program, we produce a short tone by using a value of 20. 

The sound-generation routine is used in the subroutine in lines 54@ 
through 56@. Each character of Z$ is printed, one at atime, followed by a 
short, randomly chosen, musical note. A “‘trilling”’ effect is produced as 
each character in the string is displayed. 


10-2 Program initialization and sound routine 

30-18 Instructions 

199-200 Game initialization 

218-220 — Get string and print it 

23Q-4O@ — Get your input and randomly change X’s to O’s or O’s to X’s 
41@ Increment turn counter 


428-43 — Check for winner and loop if none 
440-450 Delay and print final string value 
460-48G 


End of game message 
498-520 Play again or exit to Main Menu 
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530 


Concatenate game array to a string 


54Q-56@ Print a string while playing random sounds 


Flip Flop. 


TEXT :HOME 

POKE 768,166:POKE 769,1:POKE 778,164:POKE 771,90: 
POKE 772,173:POKE 773,48:POKE 774,192:POKE 775,1 
36:POKE 776,298:POKE 777,253:POKE 778,202:POKE 7 
79,208:POKE 788,245:POKE 781,96 


SPEED= 175 

Z$ = “THE OBJECT OF THE ANCIENT GAME OF":VTAB 2: 
GOSUB 549 

Z$ = "FLIP FLOP":GOSUB 549 

Z$ = "IS TO CHANGE THIS:":GOSUB 549 

ZS = "X X X X X X X X X X":VTAB 6:GOSUB 549 

Z$ = "TO THIS:":VTAB 8:GOSUB 548 

ZS = "00000000 0 O":VTAB 18:GOSUB 540 


Z$ = "IN AS FEW MOVES AS POSSIBLE.":VTAB 12:GOSU 


Z$ = "TO CHANGE A POSITION, PRESS THE NUMBER":VT 

AB 14:GOSUB 5598 

Z$ = “OF THAT POSITION. IT WILL THEN BE":GOSUB 
559 

Z$ = “CHANGED. HOWEVER, THE GODS MAY NOT" :GOSUB 
558 

Z$ = “SMILE GRACIOUSLY UPON YOUR EFFORTS, AND":G 

OSUB 5598 

Z$ = “THE POSITIONS MAY CHANGE ON THEIR OWN.":GO 

SUB 5598 

Z$ ".-«eGOOD LUCK !":VTAB 28:GOSUB 5598 


Z$ = "P.S.: TO QUIT THE GAME, PRESS <ESC>.":VTAB 
22:GOSUB 550 

SPEED= 255:FOR X = 1 TO 30@@:NEXT :HOME 

FOR X = 1 TO 10:A$(X) = "X":NEXT 

VTAB 8:HTAB 19:PRINT "1 23 4567 8 9 g" 

GOSUB 530 

VTAB 9:HTAB 1:CALL - 868:FOR X = 1 TO 300:NEXT 
:HTAB 18:GOSUB 552 

VTAB 20:PRINT "TO CHANGE: "; 

GET CH$:IF CH$ = CHR$ (27) THEN HOME :PRINT : GO 

TO 498 

IF ASC (CH$) < 48 OR ASC (CH$) > 57 THEN 249 

N = VAL (CH$):IF N = @ THEN N = 10 

PRINT :M = N 

IF AS(N) = "O" THEN 326 

AS (N) = "oO" 

N = INT (RND (1) * 11):IF N < 1 OR N > 108 THEN 3 

Tt) 


IF AS(N) = "X" THEN AS(N) = "O": GOTO 419 
AS (N) = “yx 

IF M = N THEN 3989 

GOTO 4198 

IF A$S(N) = "O" THEN 398 
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360 
379 


389 
390 
408 
410 
420 
436 
449 
459 


460 
470 


480 


499 
5008 


518 
528 


530 
548 
559 


568 


AS(N) = "oO" 
N = INT (RND (1) * 11):IF N ¢< 1 OR N > 16 THEN 3 
72 


IF A$S(N) = "X" THEN AS(N) = "O": GOTO 419 

AS (N) = "x" 

IF M = N THEN 378 

c=crttl 

FOR X = 1 TO 10:IF A$(X) < > “O" THEN 2198 

NEXT 

FOR X = 1 TO 300:NEXT 

GOSUB 538:VTAB 9:HTAB 1:CALL - 868:HTAB 190:GOSU 
B 558 

VTAB 20:HTAB 1:CALL - 868 


IF C < 13 THEN PRINT "VERY GOOD. YOU GUESSED IT 
IN ONLY ";C:PRINT "GUESSES !11": GOTO 498 

PRINT "GOOD TRY...BUT YOU COULD DO BETTER.":PRIN 

T “IT TOOK YOU ";C;" GUESSES THIS TIME." 

PRINT :PRINT "TRY AGAIN (Y/N): "; 

GET CHS:IF CHS < > "Y" AND CHS < > "N" THEN 50 

g 

IF CHS = "Y" THEN HOME :C = @: GOTO 190 

HOME :VTAB 8:HTAB 19:PRINT "THANX FOR THE GAME | 
!":VTAB 1:HTAB 1:PRINT "RUN MENU" 

zZ$ = "";FOR X = 1 TO 10:Z$ = ZS + AS(X) + " “:NE 

XT :RETURN 

POKE 36,20 -— LEN (ZS) / 2 

FOR X = 1 TO LEN (Z$):PRINT MIDS (Z$,X,1);:IF MI 

DS (Z$,X,1) < > " “ THEN POKE @,RND (1) * 88 + 
50:POKE 1,29:CALL 768 

NEXT :PRINT :RETURN 
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2. Mastermind 


Most people are familiar with the game of Mastermind, right? Well, 
this version has a new “twist,” because that is what you do! You twist the 
game paddle (paddle ‘‘@’’) to change the colors and use the paddle button 
to “lock in” the color of your choice. Joysticks can be used instead of 
game paddles. 

This game illustrates the use of low-resolution graphics and game 
paddles or joysticks. No text is displayed. When you finish guessing the 
color and position of a row of squares, the result is displayed with colored 
dots (see game rule #5) instead of a message. Thus, this game is well- 
suited for small children who have not learned to read. However, it is also 
a refreshing change of pace for older children and adults. 

Mastermind is designed to be used with a color display. If you have a 
monochrome monitor, it is difficult, although not impossible, to play. The 
colors of the squares and the results will appear as different patterns 
instead of different colors (see the Game Rules). The type of patterns 
displayed depends on the type of monitor you have. 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 2. If you are 
not using the menu, run the program. 


2. The directions will be displayed. 


3. Turn the game paddles or move the joystick controller until the desired 
color is displayed at the blinking rectangle. 


4. Press the button on the game paddle or joystick. The next position will 
begin blinking, or, if you have completed a row, the results will be 
displayed. 


5. For every square where you guessed the correct color, but the wrong 
position, a turquoise dot is displayed. If you guessed the correct color 
and the correct position, a pink dot is displayed. 


6. When you have guessed the colors for the first row, try again on the next 
row. 


7. To end the game at any time, press <ESC>. 


20 


8 You win when you have matched the position and color of every square 
in the row. 


9. When completed, the program returns to the Main Menu. 


Programming Notes 


19-95 

1D@D-110 
120-140 
150-210 


Instructions 

Game initialization 

Display input line and get your input 
Check for correct input 


220-240 Display results 

25@-26@ Check for winner and loop if no winner yet 
270-290 _—_End the game 

30@-350 Display input line 


360-510 


Get input from paddles or <ESC> to end game 


52@-57@ Randomly select the game elements 


580 


Blank out graphics line (the row of squares) 


Mastermind. 


REM MASTERMIND 

SPEED= 109 

HOME :PRINT TAB( 15);"MASTERMIND":PRINT 

PRINT "THE OBJECT OF MASTERMIND IS TO GUESS THEC 
ORRECT COLOR COMBINATION OF FOUR" 

PRINT "SQUARES. THE COMPUTER WILL ALLOW YOU TOC 
HANGE THE COLOR OF EACH POSITION BY USEOF THE GA 
ME PADDLES. WHEN THE COLOR YOUWISH APPEARS, PRE 
SS THE PADDLE BUTTON," 

PRINT "AND YOU CAN CHANGE THE NEXT SQUARE.":PRIN 
T "WHEN ALL FOUR SQUARES ARE COMPLETED,":PRINT " 
YOU WILL SEE HOW MANY SQUARES WERE THE" 

PRINT “RIGHT COLOR, AND IF THEY WERE IN THE":PRI 
NT "RIGHT POSITION. ":PRINT 

PRINT “FOR EVERY ONE THAT WAS A CORRECT COLOR,": 
PRINT “BUT IN THE WRONG POSITION, YOU WILL SEE": 
PRINT "A SMALL TURQUOISE DOT, AND FOR EVERY" 
PRINT "ONE THAT WAS THE CORRECT COLOR AND ALSO": 
PRINT "IN THE CORRECT POSITION, YOU WILL SEE A": 
PRINT “SMALL PINK DOT." 

PRINT :PRINT "PRESSING <ESC> AT ANY TIME ENDS TH 
E":PRINT "GAME." 

GOSUB 520:SPEED= 255:HOME 


Q= - 4:T = O:GR 

Q=Q + 5:IF Q > 37 THEN Q=l1 

H= @6:T=T +1 

GOSUB 588:GOSUB 388:GOSUB 368 

RW = O@:RR = @ 

FOR X = 1 TO 4:F(X) = @ 

IF G(X) = M(X) THEN RR = RR + 1:F(X) = l 
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NEXT 


FOR X = 1 TO 4:FOR Y 
= M(X) AND Y 


IF G(Y) 


= RW + 1:F(X) = 
:NEXT 


NEXT 
H= 1 


IF RW > 
3:PLOT 
IF RR > 
3:PLOT 
IF RR < 


PRINT 


7 


8 THEN COLOR= 


H,Q:NEXT 


0 THEN COLOR= 


H,Q:NEXT 


4 THEN 129 
“CONGRATULATIONS, YOU DID IT IN 


"“TURNS!":PRINT 


VTAB 23:PRINT 


GET CHS$:IF CH$ < 


TEXT 


:HOME :PRINT :PRINT CHRS (4)"RUN MENU" 


COLOR= 


HLIN 0,3AT Q:HLIN 9,3AT Q +1 
HLIN 5,8AT Q:HLIN 5,8AT Q +1 
HLIN 10,13AT Q:HLIN 18,13AT Q 
HLIN 15,18AT Q:HLIN 15,18AT Q 


RETURN 


FOR X 
CH = 
POKE 


COLOR= 
HLIN H,H + 3AT Q:HLIN H,H + 3AT Q +1 


FOR Z 


iH 
ry] 
QAAAN 


IF 


< 


> 
> 


COLOR= 
HLIN H,H + 3AT Q:HLIN H,H + 3AT Q +1 


FOR Z = 1 TO 100:NEXT 
IF PEEK ( - 16287) 
G(X) =Cc 


H = H + 5:NEXT 


FOR X 


IF M 


1d 


1 


1 TO RW:H 


1 TO RR:H 


> CHR$ (13) THEN 282 


1 TO 4:G(X) 


1 TO 108:NEXT 
C = INT (PDL (8) / 17) 


1 THEN C 


3 AND C < 7 THEN C 
ll AND C > 6 THEN C 
18 AND C < 14 THEN C 


13 THEN C 
Cc 


1 


1 TO 4:M(X) 
M = INT (RND (2) * 15):IF M > 13 THEN 539 


@ OR (M > 4 AND M < 9) OR (M > 9 AND M < 


13) THEN 538 
FOR Y = 1 TO X:IF M = M(Y) THEN 530 


NEXT Y 


M(X) 


M:NEXT X:RETURN 
COLOR= @:HLIN 8,30AT Q:HLIN 8,3Q8AT Q + 1:RETURN 


- 16368,0:IF CH 
© 


15 


< 128 THEN 362 


Xs: RETURN 
= Q 
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+ 
+ 


PEEK ( - 16384):IF CH < 128 THEN 379 
155 THEN POP : GOTO 2798 


> X AND F(X) = SO THEN RW 


“sTsPRINT 


"PRESS <RETURN> TO CONTINUE..."; 


3. Towers 


You’ve heard of the famous Leaning Tower of Pisa? That’s good, even 
though it has nothing to do with this game. 

The proper name for this game is The Towers of Hanoi. It begins with 
several disks of different sizes, located on the leftmost of three towers. 
The object of the game is to move all the disks to tower three, the 
rightmost tower, in as few moves as possible. However, you can only move 
one disk at a time and you cannot place a larger disk on a smaller one. Try 
playing with two disks and then progress to three. 

If you take too many moves, you lose the game. Besides that, you may 
not get invited back to Hanoi. 

This game demonstrates screen control techniques. The needles and 
disks appear to remain static, while the comments and prompts scroll on 
the bottom portion of the screen. This is done using the Apple window- 
control memory locations, and can be examined in the display routine in 
lines 5O@ through 530. 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 3. If you 
are not using the menu, run the program. 


2. The directions will be displayed. 


3. Choose the number of disks to use in the game. You may select one 
through seven disks. 


4. Press <RETURN> to begin. 


5. Select a disk to move. Disks are represented with 3, 5,7, 9, 11, 13, or 
15 asterisks (*). 


6. You can only move the top disk on a tower (needle). 


7. Select which tower (needle) to move the disk to. Needles are spec- 
ified by 1, 2, and 3, 1 is the leftmost needle. 


8. You cannot place a large disk on a smaller one. 


- Try to get all the disks to needle 3, the rightmost one, in as few moves 
as possible. 


10. When completed, you can play again or exit to the Main Menu. 
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Programming Notes 


10-60 Initialization and instructions 

71O-9O Determine number of disks to use by prompting player 

10@-15@ Additional instructions 

160-176 Prompt for <RETURN> to be pressed 

180-2@@ Game initialization 

21@-3@@ Determine disk to move and check if valid move 

31Q-4@@ Determine needle to move to and check if valid move 

410 Refresh screen (by redrawing the display) 

420 Increment move counter and stop if too many moves 

430-44@ Check if winner, loop if none yet 

45@ Print game move results 

460-49@ Prompt for new game or exit to Main Menu 

5@@-53@ Display needles and disks on screen 

54 Exit game 

Towers. 

19 REM TOWERS 

20 DIM F(3,7) 

30 FOR Q = 1 TO 3:FOR R= 1 TO 7:F(Q,R) = O:NEXT :H 
OME :PRINT :PRINT 

40 PRINT TAB( 9);"TOWERS OF HANOI PUZZLE":PRINT 

50 PRINT "YOU MUST TRANSFER THE DISKS FROM THE 
EFT TO THE RIGHT TOWER, ONE AT A TIME," 

62 PRINT "NEVER PUTTING A LARGER DISK ON A":PRINT 
SMALLER ONE.":PRINT 

72 PRINT "HOW MANY DISKS (MAXIMUM OF 7): "s: 

80 GET S$:S = VAL (S$):IF S < 1 0RS > 7 THEN 8@ 

90 PRINT S:PRINT :PRINT :M = @ 

190 HOME :PRINT “IN THIS GAME, WE WILL REFER TO DISK 
S BY":PRINT "A NUMERICAL CODE.":PRINT 

1190 PRINT "3 WILL REPRESENT THE SMALLEST DISK, 5 
HE NEXT SIZE, 7 THE NEXT, AND SO ON, " 

126 PRINT "UP TO 15. YOU CAN IDENTIFY A DISK BY":PR 
INT "THE NUMBER OF ASTERISKS WITH WHICH IT":PRIN 
T "IS MADE.":PRINT 

130 PRINT "THE NEEDLES ARE NUMBERED FROM LEFT TO":PR 
INT “RIGHT, 1 TO 3. WE WILL START WITH THE":PRI 
NT "DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE":PRIN 
T “THEM TO NEEDLE 3." 

142 PRINT :PRINT "GOOD LUCK!!!!":PRINT 

15d PRINT 

166 PRINT "PRESS <RETURN> TO BEGIN..."; 

172 GET AS:IF A$ < > CHRS (13) THEN 178 

18d HOME 

1998 Y = 7:FOR Q = S T0 1 STEP - 1:F(1,Y¥) =Q*2 + 
1:Y = Y - 1:NEXT 

200 GOSUB 580d 
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210 
229 
230 
235 
242 
250 
260 


270 
280 
2908 


309 


338 


348 


PRINT "WHICH DISK WOULD YOU LIKE TO MOVE: 

D= 90 

GET S$:IF S$ = CHRS (8) THEN PRINT : GOTO 219 
D=D * 18 + VAL (S$):IF VAL (S$) = @ THEN 236 
IF D = 1 THEN PRINT D;: GOTO 239 

PRINT VAL (SS) 


IF ((D - 1) / 2) > @ AND ((D- 1) / 2) < =S TH 
EN 290 

PRINT "YOU MAY ONLY TYPE ";:FOR J = 1 TO S:PRINT 
J * 2+ 1;:IF J < > S THEN PRINT ", "; 


NEXT :PRINT : GOTO 2198 

FOR Q = 1 TO 3:FOR R= 1 TO 7:IF F(Q,R) < >ODT 
HEN NEXT :NEXT :PRINT "SORRY, BUT THAT DISK IS N 

OT BEING USED IN THIS GAME.": GOTO 218 

IF F(Q,R - 1) > @ THEN PRINT "THAT DISK IS BELOW 
ANOTHER ONE. MAKE":PRINT “ANOTHER CHOICE.": GO 
TO 210 

PRINT "PLACE DiSK ON WHICH NEEDLE (1-3): "; 

GET SS:N = VAL (S$):IF N < 1 OR N > 3 THEN 320 
PRINT N 

FOR Q = 1 TO 7:IF F(N,Q) = @ THEN NEXT GOTO 36 
g 

IF D> = F(N,Q) THEN PRINT "SORRY, BUT YOU CAN' 
T MAKE THAT MOVE!": GOTO 212 

FOR U = 1 TO 7:IF F(N,U) = 8 THEN NEXT U 
U=U-1 

FOR Q = 1 TO 3:IF Q = N THEN 400 

IF F(Q,R) = D THEN F(N,U) = F(Q,R):F(Q,R) = 8:0 
= 3 

NEXT Q 

GOSUB 592d 

M = M + 1:IF M > 128 THEN PRINT "SORRY, BUT I HA 
VE ORDERS TO STOP IF YOU MAKE MORE THAN 128 MOVE 
S.": GOTO 549 

FOR Q = 1 TO 2:FOR R= 1 TO 7:IF F(Q,R) < >? OT 
HEN 219 

NEXT :NEXT 

POKE 34,98:HOME :VTAB 8:PRINT "YOU HAVE PERFORMED 
THE TASK IN ";M;" MOVES":PRINT 

PRINT “WOULD YOU LIKE ANOTHER GAME (Y/N): "; 

GET AS$:IF A$ < > "Y" AND AS < > “"N" THEN 479 
PRINT AS:IF AS = "N" THEN 54¥ 

CLEAR : GOTO 32 

POKE 34,8:POKE 35,22:VTAB 1:HTAB l 

FOR Q = 1 TO 3:Z = Q * 10:FOR R = 1 TO 7:VTAB (Q 
- 1) * 7 + R:HTAB 1:CALL = 868 

HTAB (Z - INT (F(Q,R) / 2)):FOR Y = 1 TO F(Q,R): 
PRINT "*";:NEXT :IF R = 7 THEN HTAB Z:INVERSE :P 
RINT Q; :NORMAL 

NEXT :NEXT :POKE 35,24:POKE 34,21:VTAB 24:HTAB 1 
: RETURN 

TEXT :PRINT :PRINT CHRS (4)"RUN MENU" 
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4. Sherlock’s Home 


Elementary, my dear Watson! In this game, you’re the master detec- 
tive, and you have to discover “who dunnit” before he does you in. 
Sherlock’s Home uses one- and two-word commands, similar to many 
adventure or fantasy games. 

Each time you are called in on a new case, there is a different victim. 
But the suspects remain the same. Not surprising to a trained detective 
like yourself, is it? 

The only fact the police have turned up is that the suspect resides in 
Sherlock’s home. But you have a few hunches yourself, and one of them 
may prove to be correct — he’s out to get you too. You can move from 
room to room, pick up weapons, and make announcements as to who you 
think committed the dire deed. If any of your guesses (as to the suspect, 
room, Or weapon) are wrong, you get the reason why, but nothing else. 
And time isn’t on your side — each step you take brings your nemesis 
closer and closer. 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 4. If you 
are not using the menu, run the program. 


2. The instructions will be displayed. 


3. Move from room to room to determine who committed the crime and 
how it was done. 


4. When proposing a solution, you must be in the room where you think 
the crime was committed. 


5. You must be holding the correct weapon to win. 


6. You must deduce who committed the crime, where it happened, and 
what weapon was used. 


7. You can move from room to room by typing GO followed by the 
name of the room. The rooms are: 


LIVING ROOM DEN DINING ROOM 
STUDY KITCHEN WATERCLOSET 
BEDROOM ATTIC GUEST ROOM 
BASEMENT 
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_ If a weapon is in the room, you can pick it up by typing TAKE 


followed by its name, but you can carry only one. Possible weapons 
are: 


GUN ROPE CANDLESTICK 
KNIFE POISON WRENCH 


_ To drop a weapon, type DROP followed by its name. 


The suspects and their occupations are: 


MR. MISER Millionaire 

MRS. SIPPY Housewife 

CISSI SIPPY Housewife’s daughter 
COL. KENTUCKY Restaurant magnate 
OLIVE PITTS Fruit grower 
HEAVES Family butler 

SPOT Family dog 


. If you think you have solved the case, make an announcement by 


entering an asterisk (*) as your command. 


The game ends when you get the criminal or he gets you. 


. Upon completion, you can play again or exit to the Main Menu. 


Programming Notes 


19-29 Initialization 

3QO-69D Display instructions 

71@@-715 Prompt for displaying the instructions again 
120-83 Game initialization 

849-930 Main program loop 


870 Prompt for command 

880 Check detective’s announcement 

89% Check command to go to another room 
90@ Check command to take a weapon 

916 | Check command to drop a weapon 


949-960 You’re too late, you’ve been done in 
97B-98@ Announce ‘“‘who dunnit” 
99G-132G Routine for detective’s announcement 
990 Check for no weapon in hand 


10@@-107@ Display announcement screen 
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ID8O-1B9D 


Get your guess of who dunnit 


1110-1130 Check theory in order of room, 
weapon, and person 

1140 You solved it! 

115-118 Play again or exit to the Main Menu 

1199-120@ Sorry, wrong room 

1210-1220 Sorry, wrong weapon 

1230-124 Sorry, wrong person 

125@-128@ Check theory in order of weapon, 
person, room 

129G-132@ Check theory in order of person, 


room, weapon 


1330-146 Routine for going to a room 
1330-1390 Check for valid room 
1400 In that room already 
1410-1440 Special routine for watercloset 
1450-1460 Change room 
1470-1640 Routine for taking a weapon 
147@-152@ Check for valid weapon 
153 Valid weapon, but not in room 
1540-1560 Check for weapon in room 
157O Weapon not in room 
1580-164 Transfer weapon from in the room to 
in the detective’s possession 
1650-174 Routine for dropping a weapon 
166@ Sorry, not carrying anything to drop 
167G-171O Check for valid weapon 
1720 Not carrying that weapon 
1730-174 Transfer weapon from in the detec- 
tive’s possession to in the room 
1760-177 Get random number between 1 and 10 
1780-180@ Press <RETURN> to continue 
1810-189 Display information (room, weapons visible, etc.) 
19@@G-192G End program 
Sherlock’s Home. 
5 REM SHERLOCK'S HOME 
1d DATA FRED, JOHN, CARL, ZEKE, ARCHIBALD, FRANCINE, AGAT 
HA, WILLIAM, MORTIMER, FANNY 
26 DATA SMITH, ABERCROMBIE, HARKENFARKER, SNERD, WHOSIT 
S,SPITZINPOT, PEEZINPEPPER, BELEAKE,GYTOPE, PEON 
30 DATA LIVING ROOM,DEN,DINING ROOM, STUDY,KITCHEN,W 


ATERCLOSET, BEDROOM, ATTIC,GUEST ROOM, BASEMENT 
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339 


348 


DATA GUN,WRENCH, ROPE, CANDLESTICK,KNIFE, POISON 
DATA MR. MISER,MRS. SIPPY,CISSI SIPPY,COL. KENTU 
CKY,OLIVE PITTS,HEAVES, SPOT 

FOR X = 1 TO 19:READ FS$(X):NEXT :FOR X = 1 TO 18 
:READ L$(X):NEXT 

FOR X = 1 TO 10:READ P$(X):NEXT :FOR X = 1 TO 6: 
READ WS(X):NEXT :FOR X = 1 TO 7:READ SS$(X):NEXT 

GOSUB 1760:NS$ = FS(R):FS$ = N$:GOSUB 1760:NS = NS 
+ oo + L$ (R) 

DIM R(10,6) 


V$(1) = "O.K. EVERYONE IS HERE....WHAT'S THE BIG 
ANNOUNCEMENT ?" 

V$(2) = "LAY IT ON US, OH EXALTED DETECTIVE..... 
0 

V$(3) = "THINK YOU GOT THE ANSWER ? WE'LL SEE.. 

V$(4) = "I HOPE YOU ARE NOT WASTING OUR TIME.... 

V$(5) = “OH, NO.....NOT ANOTHER THEORY...... 

V$(6) = "THE KILLER IS GETTING CLOSER....I HOPE 
YOU HAVE THE ANSWER...." 

V$(7) = “SOMEONE IN THIS ROOM MAY KILL YOU IF YO 

UDON'T HAVE THE CORRECT ANSWER..." 

V$(8) = “TIME IS RUNNING OUT.....DO YOU HAVE THE 
ANSWER ?" 

V$(9) = “GETTING CLOSE, HUH ? COULD BE DANGEROU 
SAROUND HERE SOON..." 

V$(18) = "THE SURGEON GENERAL HAS WARNED THAT TO 

O MANY THEORIES WITH THE KILLER NEARBY COULD 


BE HAZARDOUS TO YOUR HEALTH." 


X$(1) = “NOT QUITE..." 
X$(2) = "WRONG AGAIN..." 
X$(3) = "ARE YOU KIDDING ?" 
X$(4) = “WRONGO |" 

X$(5) = "SINCE WHEN ?" 
X$(6) = “THINK AGAIN..." 
X$(7) = "GOOD TRY, BUT..." 
X$(8) = "THINK SO, HUH ?" 
X$(9) = "I DOUBT IT..." 
X$(18) = "BAD JUDGEMENT..." 


HOME :PRINT TAB( 7);"WELCOME TO SHERLOCK'S HOME" 
:PRINT 

PRINT " THE OBJECT OF THE GAME IS TO GUESS":PRI 

NT CHRS (34);"WHO DUNNIT";CHRS (34);". THE COMP 

UTER WILL CHOOSE" 

PRINT "THE KILLER, WHERE THE CRLME WAS":PRINT "C 

OMMITTED, AND THE MURDER WEAPON.":PRINT "BECAUSE 
THE LOCAL POLICE ARE COMPLETELY":PRINT "BAFFLED 
BY THIS COMPUTER-ASSISTED" 

PRINT "CRIME, YOU, AS THE WORLD'S FOREMOST": PRIN 

T “AUTHORITY ON COMPUTER CRIME (WHAT WE IN":PRIN 

T "THE TRADE REFER TO AS 'C.C.'), HAVE" 

PRINT "BEEN CALLED IN TO DISCOVER THE ANSWER." 
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358 


368 
378 
388 
396 
400 


410 
426 


430 
440 
45a 
460 
476 
480 
496 
580 
519 
526 
530 
540 
558 
566 
576 
589 
596 
600 


610 


620 


636 


PRINT :PRINT “" THE ONLY ESTABLISHED FACT IS THA 
T THE CRIME TOOK PLACE SOMEWHERE IN AN OLD DE 
SERTED MANSION KNOWN ONLY AS ";CHRS (34); "SHER-" 
PRINT "“LOCK'S HOME";CHRS (34);" (ONCE OWNED BY T 
HE LATE" 


PRINT “JOHN SPENCER SHERLOCK III, RICH AND F 
AMOUS MYSTERY AUTHOR)." 

GOSUB 1782 

Q$ = " THE ":IF LEN (NS) + 19 > 39 THEN 420 


Ql$S = QS + “POOR ":IF LEN (NS) + 22 > 39 THEN QS 
= Q1$S: GOTO 426 

Q$ = QS + “HAPLESS " 

PRINT QS;"VICTIM, "“:NS;","sPRINT "REFUSES TO ANS 

WER ANY OF THE QUESTIONS POSED BY THE POLICE, S 

O YOU HAVE NOTHINGMORE TO GO ON EXCEPT YOUR WIT, 
COURAGE, " 

PRINT “AND CUNNING.":PRINT :PRINT " THE ROOMS I 

N THE HOUSE ARE AS FOLLOWS:" 

FOR X = 1 TO 9 STEP 2:PRINT PS(X);TAB( 208);P$(X 

+ 1):NEXT 

PRINT :PRINT " YOU MAY ENTER ANY ROOM IN THE HO 

USE":PRINT "BY TYPING 'GO ‘ AND THEN THE NAME OF 
"sPRINT "THE ROOM." 

GOSUB 1782 

PRINT " THE MURDER WEAPONS ARE:" 

PRINT :FOR X = 1 TO 5 STEP 2:PRINT WS(X);TAB( 22 
):wS(X + 1):NEXT 

PRINT :PRINT " THESE ITEMS LAY SCATTERED THROUG 

HOUT THE HOUSE. THE POSSIBLE SUSPECTS (AND TH 
EIR OCCUPATIONS). ARE:":PRINT 

PRINT “MR. MISER";TAB( 20): "MILLIONAIRE" 

PRINT "MRS. SIPPY";TAB( 20) ;"HOUSEWIFE" 

PRINT "CISSI SIPPY";TAB( 20);"HOUSEWIFE'S DAUGHT 
ER" 

PRINT "COL. KENTUCKY";TAB( 28);"RESTAURANT MAGNA 

TE" 

PRINT "OLIVE PITTS";TAB( 20);"FRUIT GROWER" 
PRINT "HEAVES";TAB( 20);"FAMILY BUTLER" 

PRINT "SPOT";TAB( 20);"FAMILY DOG" 


PRINT :PRINT “ ALL OF THE ABOVE HAD A MOTIVE TO 
KILL" 

PRINT NS$;"."“ 

GOSUB 17806 

PRINT “ YOUR JOB IS TO GO FROM ROOM TO ROOM A 

ND DECIDE WHO KILLED POOR ";FS;"." 

PRINT :PRINT “ WHEN YOU WISH TO VENTURE A GUESS 


AS TOWHO DID IT, ENTER ‘** AS YOUR COMMAND. EV 
ERYONE WILL THEN COME TO THE ROOM YOU ARE IN FOR 
THE BRILLIANT ANNOUNCEMENT." 

PRINT :PRINT “ SOME OF THE COMPLICATIONS ARE TH 
AT YOUMUST ANNOUNCE YOUR THEORY IN THE ROOM YO 
U THINK THE MURDER HAPPENED IN. FOR" 

PRINT “EXAMPLE, IF YOU THINK THE MURDER TOOK P 
LACE IN THE DEN, YOU MUST ANNOUNCE IT IN THE DE 
N.- ALSO, YOU MUST BE CARRYING THE MURDER WEAPON 
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640 


659 
669 


678 
689 


690 


YOU THINK WAS USED TO DO THE DIRTY DEED.” 

PRINT :PRINT " YOU MAY PICK UP WEAPONS AND MOVE 
THEM FROM ROOM TO ROOM BY TYPING ‘TAKE ' AND TH 
E NAME OF THE WEAPON. FOR EXAMPLE, TOPICK UP TH 


E GUN, THE COMMAND WOULD BE "TAKE GUN‘." 

GOSUB 17808 

PRINT “ YOU CAN ONLY CARRY ONE WEAPON AT A T 
IME. YOU CAN DROP ANY WEAPON WITH THE COMMAND ' 

DROP * AND THE NAME OF THE WEAPON. " 

PRINT 

PRINT " AS A FINAL NOTE, THE KILLER HAS AN A 

VERSION TO GETTING CAUGHT. AS TIME GOES ON, 

YOU MAY GET KILLED BY THE KILLER, SO TRY TO 
DISCOVER WHO DID THE DASTARDLY DEED BEFORE YOU 
BECOME THE NEXT VICTIM." 

PRINT :PRINT “ BY THE WAY, EVERY GOOD DETECTIVE 
HAS A LITTLE NOTEBOOK HE CARRIES AROUND WITHHI 

M. IT MIGHT BE A GOOD IDEA IF YOU DID TOO." 


VTAB 23:PRINT “REVIEW THE INSTRUCTIONS AGAIN (y/ 

N): ". 

GET CHS:IF CHS$ < > “Y" AND CHS < > “N"“ THEN 71 

4] 

IF CHS = "Y" THEN 300 

GOSUB 1760:C(1) = R 

GOSUB 176@:IF R > 6 THEN 7386 

C(2) =R 

GOSUB 1760:IF R > 7 THEN 758 

C(3) = R:UL = 58@:GOSUB 1760:P(1) = R:P(2) = 8:GO 
SUB 1769:UL = UL - R 

FOR X = 1 TO 10:R(X,0) = O:F(X) = O:NEXT 

FOR X = 1 TO 6 

GOSUB 1760:IF R > 6 THEN 799 

IF F(R) = 1 THEN 7998 

T = R:F(R) = 1 

GOSUB 176@:R(R,R(R,O) + 1) = T:R(R,B) = R(R,G) + 
l 

NEXT :HOME :POKE 37,18 

FOR Z = 1 TO UL 


GOSUB 1819 

PRINT 

INPUT "COMMAND ? ";IS 

IF IS = "*" THEN GOSUB 998: GOTO 9390 

IF LEFTS (1$,2) = "GO" THEN GOSUB 13398: GOTO 939 
IF LEFTS (1I$,4) = "TAKE" THEN GOSUB 14798: GOTO 9 
38 

IF LEFTS (1I$,4) = "DROP" THEN GOSUB 1658: GOTO 9 
30 


PRINT :PRINT "SORRY, SIR, BUT I DON'T UNDERSTAND 
WHAT YOU MEAN BY “;IS 


NEXT 
TEXT :HOME :PRINT “SORRY TO REPORT,. SIR, THAT YO 
U HAVE JOINED “;N$;" IN THAT" 


PRINT “GREAT PRECINCT HOUSE IN THE SKY.":PRINT 
PRINT "CHALK UP ANOTHER MURDER TO ";S$(C(3));"." 
:PRINT 
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970 


989 
996 


1980 
1910 
1920 
1930 
1940 


1850 
1960 


1970 
1089 
1985 
1990 
1190 
1110 
1120 
1130 
1149 


1150 


1160 
1165 
1179 


1189 
1198 
1280 


1219 
1220 


1230 
1240 


1250 
1260 
1278 
1280 
1299 
1390 
1319 
1329 
1339 
1340 
1358 
1360 


PRINT "BY THE WAY, THE MURDER WEAPON WAS THE":PR 
INT w$(C(2));" AND IT WAS DONE IN THE":PRINT PS$( 
C(1l));"." 

PRINT : GOTO 19980 

IF P(2) = @ THEN PRINT "SORRY, BUT YOU AREN'T CA 
RRYING A MURDER WEAPON....REMEMBER THE RULES, SI 
R !":PRINT :RETURN 

TEXT :HOME 

Ql = S:IF Z > (Z / 3) * 2 THEN Ql = 10 

GOSUB 1760:IF R > Ql THEN 19829 

PRINT VS$(R):PRINT 

PRINT "ACCORDING TO YOU, THE MURDER OF POOR": PRI 
NT NS$;" WAS DONE IN THE" 

PRINT PS$(P(1));" WITH THE ";W$(P(2));"." 

PRINT :PRINT "NOW, THE QUESTION IS ‘WHO DID IT' 
?":PRINT 

FOR X = 1 TO 7:PRINT X;") ";S$(X):NEXT :PRINT 
PRINT “WHAT IS THE CULPRIT'S NUMBER (1-7): "; 
GET I$:I = VAL (I$):IF I < 1 OR I > 7 THEN 1085 
PRINT :GOSUB 1760:IF R > 3 THEN 1090 

ON R GOTO 1119,1258,1299 

PRINT :IF C(l1) < > P(1) THEN 1192 

IF c(2) < > P(2) THEN 1219 

IF C(3) < > I THEN 1230 

PRINT :PRINT "CONGRATULATIONS, SIR...-YOU SOLVED 
THE CASE (PERSONALLY, SIR, I NEVER DOUBTED YO 

UR VERACITY FOR A MINUTE.)." 

PRINT :PRINT "WOULD YOU LIKE ANOTHER ASSIGNMENT, 
OR ARE YOU DUE FOR A VACATION (A/V): "; 

GET IS:IF I$ < > "A" AND I$ < > "v" THEN 1162 
PRINT I$ 

IF I$ = “V" THEN TEXT :HOME :PRINT “HAVE A GOOD 

VACATION, SIR...-HURRY BACK SOON !": GOTO 1920 
POP : GOTO 380 

PRINT :GOSUB 1760:PRINT X$(R) 

PRINT "THE ";P$(P(1));" WAS NOT THE CORRECT":PRI 

NT “ROOM !":PRINT :RETURN 

PRINT :GOSUB 1768:PRINT X$(R) 

PRINT wWS(P(2));" IS THE WRONG WEAPON, SIR !":P 
RINT :RETURN 

PRINT :GOSUB 1760:PRINT X$(R) 

PRINT S$(I);" HAS A PERFECT ALIBI,":PRINT "SIR ! 
"SPRINT :RETURN 

IF C(2) < > P(2) THEN 1210 
IF C(3) < > I THEN 1236 

IF C(l) < > pP(1) THEN 1190 
GOTO 1149 

IF C(3) < > I THEN 1230 

IF C(1) < > P(1) THEN 1192 
IF C(2) < > p(2) THEN 12190 
GOTO 1148 

IF LEN (I$) < 4 THEN 1380 
FOR X = l TO 10 

IF RIGHTS (I$,LEN (I$) - 2) 
IF RIGHTS (I$,LEN (I$) - 3) 


= P$(X) THEN 1499 
= P$(X) THEN 1490 
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1370 
1380 


1398 
1402 


1418 
1428 
1439 


1440 
1450 
1460 
1470 
1489 
1498 
15808 
1518 
1520 


1530 


1540 
1558 
1569 
1570 


1580 
1590 
1689 
1630 
1646 
1650 
1660 


1670 
1680 
1699 
1782 
1719 


1720 


1738 


17498 
1768 


1776 
178g 
179g 
188g 


NEXT 

PRINT :PRINT "SORRY, I CANNOT GO THERE, SIR. IT 
DOES NOT SEEM TO BE IN SHERLOCK'S HOME |" 

PRINT :RETURN 

IF X = P(1) THEN POP :PRINT :PRINT "SIR, WE SEEM 
TO BE IN THE ";P$(X):PRINT "ALREADY !": GOTO 

860 

IF X < > 6 THEN 1450 

GOSUB 176@:IF R > 4 THEN 1450 

PRINT :PRINT “SORRY, THE ";P$(6);" IS IN USE AT" 
:PRINT "THIS TIME. TRY AGAIN LATER...." 

RETURN 

P(1) = X 

RETURN 

IF LEN (I$) < 6 THEN 1520 

FOR X = 1 TO 6 

IF RIGHTS (I$,LEN (I$) - 4) 
IF RIGHTS (I$,LEN (I$) - 5) 

NEXT 

PRINT :PRINT “SORRY, SIR, I DON'T THINK THAT WEA 

PON ISIN THIS CASE !":RETURN 

IF R(P(1),0) = @ THEN PRINT :PRINT “SORRY, SIR, 

BUT THERE SEEMS TO BE NO WEAPONS IN THIS ROOM 
....-ePERHAPS SOME- WHERE ELSE ?":RETURN 

FOR Y = 1 TO R(P(1),@) 

IF R(P(1),Y) = X THEN 1580 

NEXT 

PRINT :PRINT “SORRY, SIR, BUT I DON'T SEE THAT W 

EAPON IN THIS ROOM !":RETURN 

T = P(2):P(2) = R(P(1),Y¥):R(P(1),Y) =T 

IF T > @ THEN RETURN 


WS(X) THEN 1538 
WS$(X) THEN 1532 


R(P(1),Y) = R(P(1),R(P(1),8)) 
R(P(1),8) = R(P(1),8) - 1 
RETURN 


IF LEN (I$) < 6 THEN 17190 

IF P(2) = O@ THEN PRINT :PRINT "SORRY, BUT I AM N 
OT CARRYING ANYTHING, SIR !"“:RETURN 

FOR X = 1 TO 6 

IF RIGHTS (I$,LEN (I$) - 4) 
IF RIGHTS (IS,LEN (I$) - 5) 
NEXT 

PRINT :PRINT "SORRY, SIR, I DON'T THINK THAT WEA 
PON ISIN THIS CASE 1!"“:RETURN 

IF X < > P(2) THEN PRINT :PRINT “SORRY, SIR, BU 
T I AM NOT CARRYING THAT WEAPON !":PRINT :RET 
URN 

R(P(1),0) = R(P(1),0) + 1:R(P(1),R(P(1),8)) = P( 
2):P(2) = @ 

RETURN 

R = INT (RND (1) * 11):IF R < 1 OR R > 10 THEN 1 
760 

RETURN 

VTAB 23:PRINT “PRESS <RETURN> TO CONTINUE..."; 
GET CHS:IF CHS < > CHRS (13) THEN 17908 

PRINT :HOME :RETURN 


W$(X) THEN 1729 
WS(X) THEN 1729 
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1819 
1820 
1830 
1849 
1850 
1860 
1870 
1880 
1890 
1980 
1910 
1926 


POKE 34,0:CP = PEEK (37):VTAB 1:POKE 35,7:HOME 
PRINT "ROOM: ";P$(P(1)) 

PRINT "CARRYING: ";WS(P(2)) 

PRINT "VICTIM: “;NS 

PRINT :PRINT “VISIBLE: "; 

IF R(P(1),0) = 8 THEN 1892 

FOR X = 1 TO R(P(1),0) 

PRINT WS(R(P(1),X));" “::NEXT 

PRINT :POKE 35,24:POKE 37,CP:POKE 34,7:RETURN 
VTAB 20:PRINT "PRESS <RETURN> TO CONTINUE..."“; 
GET CHS:IF CHS < > CHRS (13) THEN 1919 

PRINT :PRINT CHRS (4)"RUN MENU" 
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5. Attack of the Zargons 


Due to recently enacted weapons-control laws and your usually lawless 
attitudes, you are the only person remaining on earth who has a weapon. 
This puts you in the unique position as the only defender of the planet in 
the face of an onslaught of invading alien hordes from the planet Zargon. 
You feel the weight of responsibility and the urgency of the moment as 
you pull out your patented ACME ALIEN INVADER POWER 
DRAINER (page 342 in the Whole Planet Catalog) and fearlessly begin 
firing at the approaching ship. 

Such is your power and responsibility in Attack of the Zargons. This 
game uses high-resolution graphics and sounds to create a simple arcade- 
style game. Shape tables draw the Zargonian ship and your weapon and 
high-resolution graphics commands produce the other special effects. 

A short machine-language sound-generation routine is used to produce 
the tones heard during the initial ““welcome’’ screen and when shots are 
fired by the Zargonian ship and your weapon. This routine is the same one 
used in Flip Flop, and it is detailed in that program. 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 5. If you 
are not using the menu, run the program. 


2. After the game is loaded, there is a short delay before the action 
begins. 


. Use paddle @ or the joystick to move your weapon base left and right. 
. Fire at the invader by pressing the game controller button. 

. You receive 10@ energy units for hitting the ship. 

. You expend 5 energy units for each shot taken. 


- You lose half of your accumulated energy units if you are hit. 


oN NWN OO ee LY 


- You lose half of your accumulated energy units if you do not hit the 
Zargonian ship at least twice on each screen pass. 


9. The game ends when the enemy ship reaches the bottom of the 
screen. 


- To win, you must have at least 20@@ points when the game is over. 
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Programming Notes 


10-30 Program initialization 

49 Poke sound routine into memory 
a) Welcoming text screen 

60-70 Load and initialize shape table 
80-11D Game initialization 

120-210 Main game loop 


140 Draw ship and weapon 

15@ —_ Zargonian ship fires only 10% of time (max- 
imum) 

160 Undraw the Zargonian ship 

180  Doscore 

19D Adjust score if weapon has hit ship less than 2 
times across screen. 

20@@ _ Reset screen-crossing counters 


220-230 Game end and check for winning score 

240-260 Low score (less than 30@@), print message 

270-35 High score (30@@ or greater), print message 

360-390 Another game or end the program and return to the 
Main Menu 

4QQG-42O Score adjustment (add to or subtract from the score) 

430-520 Zargon fires at weapon 

530-570 Draw weapon at correct position 

580-630 Fire at the Zargonian ship 

640-670 Musical printing routine 

680 Data statements for states 


Attack of the Zargons. 


108 REM ATTACK OF THE ZARGONS 

28 Ml = PEEK (115):M2 = PEEK (116) 

38 HIMEM: 8192 

40 POKE 768,166:POKE 769,1:POKE 770,164:POKE 771,90: 


POKE 772,173:POKE 773,48:POKE 774,192:POKE 775,1 
36:POKE 776,288:POKE 777,253:POKE 778,202:POKE 7 
79,208:POKE 7890,245:POKE 781,96 


58 HOME :SPEED= 100:AS = "ATTACK OF THE ZARGONS":HT 
AB 10:GOSUB 649:PRINT :PRINT :AS = " THEY ARE C 
OMING. wc cccccccc ":GOSUB 640:PRINT :PRINT :PRINT 
AS = “Jase essvee GOOD LUCK !":GOSUB 648:SPEED= 2 
55 

60 PRINT “BLOADARC.OBJ" 

70 POKE 232,32:POKE 233,78 

380 DIM ST$(15):FOR X = 1 TO 15:READ STS(X):NEXT 

90 HOME :T = @:R1l = INT (PDL (0)):Y = 20:A = O:B = 
265:C = 5 
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HGR :ROT= 9@:SCALE= 1:XDRAW 2AT R1,159 
HOME :VTAB 23:HTAB 6:PRINT “ENERGY UNITS STOLEN: 


"oT 
FOR Y = 28 TO 138 STEP 5 
FOR X = A TO B STEP C 


XDRAW LAT X,Y:GOSUB 539 

IF RND (2) < .1 THEN GOSUB 439 

XDRAW lAT X,Y 

NEXT 

GOSUB 499 

IF SF < 2 THEN T = INT (T * M):VTAB 23:HTAB 28:C 
ALL - 868:PRINT T 

SF = @:TP = A:A = B:sB = TP:C = -C 

NEXT 

TEXT :HOME 

IF T > 2000 THEN 279 

PRINT "THIS HAS BEEN A SAD DAY FOR EARTH. ALL": 
PRINT "HAS BEEN LOST. THE ZARGONS HAD":PRINT “E 
NOUGH POWER LEFT TO DESTROY THE EARTH. " 

PRINT “YOUR SCORE OF ";T;" JUST WASN'T GOOD" 
PRINT "“ENOUGH.": GOTO 369 

PRINT "CONGRATULATIONS.....YOU HAVE SUCCESFULLYD 
EFENDED THE EARTH AGAINST THE ZARGONS. " 

PRINT "YOUR SCORE OF ";T;" WAS VERY COMMENDABLE. 
":PRINT 

PRINT “THANKS TO YOUR BRAVERY AND SKILL IN Cc 

OMBAT, YOU HAVE BEEN AWARDED (BY ACT" 

X1$ = "OF CONGRESS), THE STATE OF “ 

X = INT (RND (1) * 33):IF X < 1 OR X > 15 THEN 3 
18 

X1$ = X1$ + ST$(X):IF LEN (X1$) < 37 THEN X1$ = 

X1$ + " IN":IF LEN (X1$) < 35 THEN X1$ = Xl1$ + " 
DEEP":PRINT X1$: GOTO 35d 

PRINT X1$:IF RIGHTS (X1$,2) < > "IN" THEN PRINT 
te IN oe : 

IF RIGHTS (X1$,4) < > "DEEP" THEN PRINT "DEEP " 


PRINT "GRATITUDE." 

PRINT :PRINT :PRINT "WOULD YOU LIKE TO PLAY AGAI 
N (Y/N): “3 

GET CHS:IF CH$ < > "Y" AND CH$ < > “N" THEN 37 
4) 

IF CHS = "Y" THEN 998 

POKE 115,Ml1:POKE 116,M2:PRINT :PRINT CHRS (4) "RU 
N MENU" 


IF T = @ THEN T= - 2 

M = .5:IF T < @ THEN M= 1 + (1 / (ABS (T) / 189 
)) 

RETURN 


HCOLOR= 3:FL = @ 

Y8 = 155:Y9 = 155:IF X + 1 > Rl - 6 ANDDX+1< 

Rl + 6 THEN Y8 = 138:FL = 1 

IF X + 180 > R1 - 6 AND X + 18 < R1 + © THEN Y9 = 
138:FL = l 

POKE @,96:POKE 1,10:CALL 768 
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HPLOT X + 1,Y + 1 TO X + 1,Y8:HPLOT X + 19,Y + 1 
TO X + 18,Y9 

IF FL = 2 THEN RETURN 

GOSUB 409 

IF FL = 1 THEN T = INT (T * M):VTAB 23:HTAB 28:C 

ALL - 868:PRINT T 

HCOLOR= O:FL = 2 

GOTO 478 

R = PDL (8) + 10 

XDRAW 2AT R1,150 

Rl = R 

XDRAW 2AT R1,150 

IF PEEK ( - 16287) < 128 THEN RETURN 

U = @:HCOLOR= 3:T = T - 5 


IF Rl > = X AND Rl < (X + 12) THEN U = Y +1:T 
= T + 100:SF = SF +l 
VTAB 23:HTAB 28:CALL - 868:PRINT T 


HPLOT R1,135 TO R1,U 

POKE 8,192:POKE 1,18:CALL 768 

HCOLOR= @:HPLOT R1,135 TO R1,U:RETURN 

FOR X = 1 TO LEN (AS) 

PRINT MIDS (AS,X,1); 

IF MIDS (A$,X,1) < > " “ THEN POKE @,RND (1) * 
58 + 50:POKE 1,20:CALL 768 

NEXT sPRINT :RETURN 

DATA ALASKA, UTAH, NEVADA, ARIZONA,NEW MEXICO,WYOMI 
NG, MONTANA, SOUTH DAKOTA,NORTH DAKOTA, IDAHO, IOWA, 
KANSAS , NEBRASKA, OKLAHOMA, WISCONSIN 
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6. Phaser Practice 


Phaser Practice is a game of luck. However, it does show how to 
choose random points within set boundaries. This is needed to determine 
where on the target the phaser “‘blast”’ is going to hit. 

This program also shows how to draw a circle on the screen. The circle 
is drawn in high-resolution graphics using the HPLOT TO statement. 
Once the first point on the circle’s perimeter 1s calculated and plotted, the 
next point is calculated and a line 1s drawn from the previous point to the 
new point. This statement, therefore, is similar to a computer version of 
“connect the dots.”’ 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 6. If you are 
not using the menu, run the program. 


. The directions will be displayed. 
. Enter the number of players. The game allows one to three players. 


. Enter the names of each player as prompted by the program. 


mn & Ww wv 


. The target is drawn and each player, in turn, will be prompted for the 
shot to use. 


6. Press a1, 2, or 3 for your shot. 


7. The game ends at the conclusion of a round in which a player’s score is 
at least 25@ points. 


8. Upon completion, the players are ranked according to their score. 
Then you can play again or exit to the Main Menu. 


Programming Notes 


1D Set high memory to “protect” shape table 
28-3 Load and initialize shape table 

4-60 Game initialization 

1©-14G Display instructions 

1SQ-17@ Get number of players and check for validity 
188-219 Get player names and call target-drawing routine 
228-23 Game set up 
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240-47 Main program loop 


240-260 Print round number and name (in 
inverse) 
270-300 Get desired shot 
310-420 Set parameters for each type of shot 
430-450 Show shot and print new score 
460-47 Check for winner and loop if none 
480-5O@ Sort names and scores 
519-520 Display game results 
530-580 Play again or exit to Main Menu 
590-76 Plot the individual shot and display it 
771@-780 Generate a random number between | and 10 
790-860 Draw, as concentric circles, the target 


Phaser Practice. 


Ml = PEEK (115):M2 = PEEK (116):HIMEM: 7499 
PRINT "“BLOADOBJ.PP" 
POKE 232,/76:POKE 233,29 


S = - 16336 

T$(1) = "OVERARM":T$(2) = "“SIDEARM":T$(3) = “UND 
ERARM" 

H$(@) = "MISS !":H$(1) = "18 POINTER !":H$(2) = 
"20 POINTER !":H$(3) = "38 POINTER !":H$(5) = "B 
ULLSEYE 1!" 

HOME :PRINT TAB( 13);"PHASER PRACTICE":PRINT 
PRINT “THE OBJECT OF THE GAME IS TO BE THE F 


IRST PLAYER TO ACCUMULATE 258 CREDITS BY FIRING 

A PHASER AT A TARGET." 

PRINT :PRINT “THE ZONES ON THE TARGET HAVE POINT 
VALUES OF 19, 28, 38, AND 58 POINTS." 


PRINT :PRINT “SHOT TYPE OF SHOT";TAB( 27);"VA 
LUE" 
PRINT “---= 8 --2- -- ---- "-TAB( 27); "----- " 


PRINT " 1";TAB( 10);T$(1);TAB( 25);"50 PTS OR MI 
ss" 
PRINT " 2";TAB( 10);T$(2);TAB( 25);"18, 28 OR 30 


PRINT " 3":TAB( 10):T$(3);TAB( 25); "ANYTHING" 
DIM W(18):R = O:M = @ 

PRINT :PRINT “NUMBER OF PLAYERS (1-3): "; 

GET NS$:N = VAL (NS$):IF N < 1 OR N > 3 THEN 179 
PRINT N:PRINT :FOR X = 1 TON 

PRINT :PRINT "NAME OF PLAYER #":X;:INPUT " ? ";A 
$(X) 

S(X) = 8 

NEXT :HOME :GOSUB 799 

VTAB 21:PRINT "ROUND:" 

POKE 32,14:VTAB 21:FOR X = 1 TO N:PRINT AS(X):": 
O":sNEXT :POKE 32,2 
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R = R + 1:VTAB 21:HTAB 7:PRINT " ";:HTAB 9:PRI 
NT R 

FOR X = 1 TON 

VTAB (20 + X):HTAB 15:CALL - 868:INVERSE :PRINT 
AS(X);":"3::NORMAL :PRINT " ";S(X) 

VTAB 23:PRINT " ":VTAB 23:PRINT "SHO 
T ? “s 


GET CH$:IF CHS = CHRS$ (27) THEN TEXT :HOME : GOT 
O 440 

T = VAL (CH$):IF T < 1 OR T > 3 THEN 280 

PRINT T 

ON T GOTO 328,338,340 


Pl = .6:P2 = .6:P3 = .6:P4 = .6: GOTO 3528 

Pl = .99:P2 = .77:P3 = .43:P4 = .9881: GOTO 359 

Pl = .95:P2 = .75:P3 = .45:P4 = .95 

U = RND (2) 

IF U > Pl THEN B = 58: GOTO 412 

IF U > P2 THEN B = 38: GOTO 419 

IF U > P3 THEN B = 28: GOTO 419 

IF U > P4 THEN B = 18: GOTO 4190 

B= @ 

REM 

S(X) = S(X) + B:VTAB 23:PRINT " "“svT 

AB 23:PRINT HS(B / 18) 

GOSUB 599 

VTAB (20 + X):HTAB 15:CALL - 868:PRINT AS(X);": 
"3S(X) 

NEXT 


FOR X = 1 TON 

IF S(X) < 258 THEN NEXT : GOTO 2498 

FOR X = 1TO N - 1:FOR Y = X + 1TON 

IF S(X) < S(Y) THEN T = S(X):S(X) = S(Y):S(Y) = 

T:TS = AS(X):AS(X) = AS(Y):AS(Y) = TS 

NEXT :NEXT 

TEXT :HOME :PRINT "WE HAVE A WINNER IN ROUND # " 
7R 

PRINT :PRINT "FINAL SCORES:":PRINT :FOR X = 1 TO 
N:PRINT AS$S(X);" SCORED ";S(X);" POINTS":NEXT 
Y/N) # :PRINT :PRINT :PRINT “CARE TO PLAY AGAIN ( 

Y/N): “; 

GET AS:IF AS < > "Y" AND AS < > “N" THEN 548 
IF AS = "Y" THEN R = 8: GOTO 1698 

HOME :VTAB 8:PRINT "THANX FOR THE GAME !1" 

POKE 115,Ml1:POKE 116,M2 

PRINT :PRINT CHRS (4)"“RUN MENU" 


L = B / 1@:IF B = 5 THEN B= 4 
=5-L 

I = INT (RND (2) * 361):IF I < 1 OR I > 359 THEN 
619 

Yl = L * SIN (I / 57.3) * 20@:X1 = L * CoS (I / 5 


7.3) * 20 

L=L-=- 1:Y2 = L * SIN (I / 57.3) * 20:X2 =L * 
cos (I / 57.3) * 20 

Yl = INT (88 - Yl):Y2 = INT (88 -— Y2):X1 = INT ( 
149 + X1):X2 = INT (140 + X2) 


41 


GOSUB 778:Y3 
GOSUB 778:X3 


Yl - RN: IF Y3 < Y2 THEN Y3 
Xl - RN:IF X3 < X2 THEN X3 


Y2 
X2 


HCOLOR= 3:HPLOT 98,168 TO X3,Y3:HPLOT 279,169 TO 


X3,Y3 

SCALE= 2:ROT= 9:FOR Z = 1 TO 19 

XDRAW LAT X3,Y3 

FOR Zl = 1 TO 6 

SO = PEEK (S):SO = PEEK (S):SO = PEEK (S) 
NEXT 

XDRAW LAT X3,Y3 

NEXT 


HCOLOR= @:HPLOT 9,168 TO X3,Y3:HPLOT 279,169 TO 


X3,Y3 
RETURN 


RN = INT (RND (2) * 11):IF RN > 10 OR RN < 1 THE 


N 776 

RETURN 

HGR 

HCOLOR= 3 

FOR Z = 28 TO 88 STEP 29 
FOR L = 8 TO 3698 STEP 4 


Y = INT (80 - Z2 * SIN (I / 57.3)):X = INT (140 + 


zZ* cos (I / 57.3)) 

IF I = 8 THEN HPLOT X,Y 
HPLOT TO X,Y 
NEXT :NEXT :RETURN 
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7. Acey-Ducey 


This is a game for gamblers. Three cards are picked at random and you 
bet on whether or not the value of the third card will be between the first 
two. 

The cards are displayed on the screen using subroutines to draw the 
blank cards and the card’s symbols, correctly positioned. The card 
symbols—hearts, diamonds, spade, and clubs—are drawn using a shape 
table. 

One suggestion for improving the game is to add a real “‘deck’’ and deal 
from it. As the game is presently programmed, the cards are drawn at 
random from an “unlimited” deck; a card, for example, the ten of hearts, 
can occur more than once in a game, or even in one hand. 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 7. If you 
are not using the menu, run the program. 


. The instructions will be displayed. 
. Press <RETURN> to start the game. 
. You begin with a $10@.@@ stake. 


. Two cards will be shown face up and one face down. 


Nn A & WH WN 


. Enter your bet. You can bet nothing (by entering @) or up to your full 
stake. 


7. The face-down card will be shown. 


8. If the third card’s value is between the values of the first two cards, 
you win the amount of your wager. If the third card’s value is less than 
the first card, greater than the second card, or equal to either of the 
first two cards, you lose the amount of your wager. 


9. Card ranking is 2 through 10, Jack, Queen, King, Ace. 
10. The game ends when you have no more money. 


ll. When the game ends, you can play again or exit to the Main Menu. 
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Programming Notes 


220-270 
280 
290-310 
320 
330-35 
360 
370-390 
49D 
410-460 
470-5OO 
510 

520 
530-550 
56@-57@ 
580 
590-600 
610-660 
670-74 
12Q@@-1230 
1300-1360 
14DQ-148@ 
15S@O-157D 
169@-1650 
17@O-178D 
18BOD-186D 
19DD-197D 
20OO-2040 
210D-2120 
2200-2220 
2300-2320 
2490-2420 


Set high-memory boundary 

Initialize and load shape table 
Program initialization 

Dollars and cents display routine 
Rounding routine 

Display directions 

Wait for a <RETURN> before proceeding 
Initialize screen and display 

Check for player with no money 
Pick first two cards 

Redo blank cards on screen 

Pick suit for first card 

Show first card 

Pick suit for second card 

Show second card 

Get wager; exit or check for validity of wager 
Pick third card and suit 

Show third card 

Does the bet win? 

Yes, so add to your stake 

No, so decrease your stake 

Short pause and loop for next hand 
Out of money, therefore game is over 
Play again or exit to Main Menu 
Print blank cards on screen (no markings) 
Display markings for two 

Display markings for three 

Display markings for four 

Display markings for five 

Display markings for six 

Display markings for seven 

Display markings for eight 

Display markings for nine 

Display markings for ten 

Display markings for Jack 

Display markings for Queen 

Display markings for King 

Display markings for Ace 


Acey-Ducey. 


Ml = PEEK (115):M2 = PEEK (116) :HIMEM: 8192 
DIM C$(14):POKE 232,32:POKE 233,78:PRINT “BLOAD 
CARDS" 
DATA 2,3,4,5,6,7,8,9,18,JACK, QUEEN, KING, ACE 
FOR X = 2 TO 14:READ C$(X):NEXT 
ROT= @:SCALE= 1 
GOTO 150 
Q = INT (Q * 100 + .5) / 100 
QS = STRS (Q):IF Q = @ THEN QS = "" 
IF INT (Q) = 6 THEN QS = "9" + QS 
IF Q = INT (Q) THEN QS = QS + ".0@0": GOTO 1290 
IF ASC (RIGHTS (Q$,3)) < > 46 THEN QS = Q$ + "Q 


RETURN 
R = INT (RND (1) * 17):IF R < 2 OR R > 14 THEN 1 


PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING":PR 
INT "WAY:":PRINT :PRINT "THE DEALER (COMPUTER) D 
EALS TWO CARDS" 

PRINT "FACE UP. YOU HAVE THE OPTION TO BET OR N 

OT TO BET DEPENDING ON WHETHER OR NOT YOU THINK 
THE NEXT CARD DEALT WILL HAVE A VALUE BETWEEN T 
HE FIRST TWO." 

PRINT :PRINT “IF YOU DO NOT WISH TO PLACE A BET, 
":PRINT "ENTER '@' FOR YOUR BET.":PRINT 

PRINT "TIES WITH YOUR UPPER AND LOWER CARDS AREA 
UTOMATICALLY WON BY THE HOUSE." 

PRINT :PRINT "ENTERING ‘QUIT' AS YOUR BET WILL A 
LLOW YOU TO END THE GAME EARLY." 

VTAB 23:PRINT "PRESS <RETURN> TO CONTINUE..."; 

GET IS:IF I$ < > CHRS (13) THEN 2190 

HOME :HGR 

VTAB 21:PRINT "STAKE: " 

VTAB 22:PRINT "YOUR WAGER: $" 

Q = 1080 

GOSUB 78 

VTAB 21:HTAB 8:CALL - 868:PRINT QS 

IF Q < .@2 THEN 5990 

GOSUB 130:A = R 

GOSUB 130:B = R 


IF A > = B - 1 THEN 2998 
GOSUB 679 

X = 29 

GOSUB 130:IF R > 4 THEN 3498 
ST = R 


ON (A - 1)GOSUB 12898,1308,1400,1500,1600,17098,18 
00,1990, 20090,2100,2200,2300,24900 

X = 108 

GOSUB 1390:IF R > 4 THEN 389 

ST = R 

ON (B - 1)GOSUB 12808,1380,1400,1590,1690,17098,18 
08,1900, 2009,2190,2200,2300,2400 
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419 
415 


VTAB 22:HTAB 14:CALL - 958:INPUT "";MS$ 

IF MS = "QUIT" THEN TEXT :HOME :PRINT "THANKS FO 

R PLAYINGI":PRINT :; GOTO 610 

M = VAL (M$):IF M < @ THEN PRINT CHRS (7);: GOTO 
410 

IF M = @ THEN VTAB 23:CALL - 868:PRINT "CHICKEN 
Ll": GOTO 270 

IF MS = Q$ THEN 479 

IF M< = Q THEN 478 

VTAB 23:CALL - 868:PRINT "SORRY, BUT YOU ONLY H 

AVE $";:Q$: GOTO 280 

GOSUB 138:C = R 

GOSUB 13@0:IF R > 4 THEN 4890 

ST =R 

X = 180 

ON (C = 1)GOSUB 1200,1300,1408,15988,1690,1708,18 

G99,1900,2000,2100,2200,2300,2480 


IF C < = AOR C> = B THEN 5698 
VTAB 23:CALL -— 868:PRINT "YOU WIN I1111" 
Q=Q+M 

GOTO 580 
VTAB 23:CALL - 868:PRINT "SORRY, BUT YOU LOSE |! 
Q=Q-M 


FOR DE = 1 TO 2500:NEXT : GOTO 268 

TEXT :HOME 

PRINT "SORRY, FRIEND, BUT YOU LOST YOUR ENTIRE S 
TAKE|I":PRINT 

PRINT "TRY AGAIN (Y/N): "; 

GET AS$:IF A$ < > "Y" AND AS < > "N" THEN 620 
IF AS = "Y" THEN 2290 

PRINT "HOPE YOU HAD FUNI11" 

POKE 115,Ml:POKE 116,M2 

PRINT :PRINT CHRS (4)"RUN MENU" 

HGR 

HCOLOR= 3 

FOR X = 20 TO 86 

HPLOT X,1@ TO X,75 

HPLOT X + 88,18 TO X + 890,75 

HPLOT X + 168,18 TO X + 160,75 


NEXT 

RETURN 

X = X + 39 

Y = 38:XDRAW STAT X,Y 
Y = 56:XDRAW STAT X,Y 
RETURN 

X =X + 15 

Y = 34:XDRAW STAT X,Y 
X = X¥ + 15 

Y = 47:XDRAW STAT X,Y 
X =X + 15 

Y = 62:XDRAW STAT X,Y 
RETURN 

X = X + 20 

Y = 38:XDRAW STAT X,Y 


1420 X = X + 20 
1430 XDRAW STAT X,Y 


1449 X = X = 29 
1459 Y = 56:XDRAW STAT X,Y 
1469 X = X + 29 


1476 XDRAW STAT X,Y 

1480 RETURN 

1500 FOR Z = X + 15 TO X + 45 STEP 15 
1519 IF Z = X + 30 THEN 1550 

1520 Y = 34:XDRAW STAT Z,Y 

1530 Y = 62:XDRAW STAT Z,Y 

1549 GOTO 1568 

155d Y = 47:XDRAW STAT Z,Y 

1569 NEXT 

1578 RETURN 

1609 FOR Z = X + 20 TO X 49 STEP 290 
1619 Y = 34:XDRAW STAT Z 
1629 Y = 47:XDRAW STAT Z 
1630 Y = 62:XDRAW STAT Z 
1640 NEXT 

1650 RETURN 

1790 FOR Z = X + 15 TO X + 45 STEP 15 
1719 IF Z = X + 38 THEN 1769 


1720 Y = 34:XDRAW STAT Z,Y 
1730 Y = 47:XDRAW STAT Z,Y 
1749 Y = 62:XDRAW STAT Z,Y 
1750 GOTO 1779 

1760 Y = 47:XDRAW STAT Z,Y 
1778 NEXT 

1786 RETURN 

1369 FOR Z = X + 20 TO X + 48 STEP 20 
1819 Y = 31:XDRAW STAT Z,Y 
182 Y = 42:XDRAW STAT Z,Y 
1830 Y = 53:XDRAW STAT Z,Y 
184 Y = 64:XDRAW STAT Z,Y 


1858 NEXT 

1868 RETURN 

1980 FOR Z = X + 15 TO X + 45 STEP 15 

1910 IF Z = X + 30 THEN Y = 47:XDRAW STAT Z,Y: GOTO 1 


969 
1929 Y 31:XDRAW STAT Z,Y 
1930 Y 42:XDRAW STAT Z,Y 


1949 ~3Oy 
1956 Y¥ 
1969 NEXT 

1978 RETURN 

2808 FOR Y = 29 TO 65 STEP 9 
2019 Xl = X + 28:XDRAW STAT X1,Y 
2826 Xl = X + 48:XDRAW STAT X1,Y 
2839 NEXT 

20948 RETURN 

2108 xX = X + 25:Y = 42 

2116 XDRAW SAT X,Y 

2126 RETURN 

2208 x = X + 25:Y = 42 


53:XDRAW STAT Z,Y 
64:XDRAW STAT Z,Y 
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2210 
2228 
2308 
2318 
2320 
2408 
2418 
2428 


XDRAW GAT X,Y 
RETURN 

X =X + 25:Y¥ = 47 
XDRAW 7AT X,Y 
RETURN 

X = X + 30:Y = 47 
XDRAW STAT X,Y 
RETURN 
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8. Big Government 


Ten score and eight years ago, our forefathers had a small government. 
Now you have a BITING (that’s really big!) government. You are the 
president of a country and must decide how to run the party and keep your 
constituents (the unsuspecting voters who elected you) happy. You will be 
in office for 48 months (unless you are impeached before then). 

You can buy and sell bonds for the treasury, spend money (what some 
politicians seem to do best) to keep the people happy, and solicit contribu- 
tions (what some politicians do second best). But watch out! Graft, 
kickbacks, and unforeseen events always occur when the future looks 
brightest. 

You will be constantly updated on the latest events by the news teletype 
(notice the percussive sound of the hammer hitting the keys) and your ever 
vigilant advisers, who interrupt periodically with news flashes. 

If you have hopes and dreams for high office, choose 8 from the Main 
Menu and play Big Government. But beware, the public is fickle at best 
and downright hostile at worst! 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 8. If you 
are not using the menu, run the program. 


2. The instructions will be displayed. 


3. Enter your name when prompted. You can enter your entire name, 
but the screen format is ‘‘neater’”’ if you use only your first name. 


4. Each month until the election will bring new plans, conditions, and 
perils. 
5. You can buy and sell bonds at the current market price. This varies 


from month to month. 


6. You should spend approximately $2@.@@ per voter to keep them in 
your political camp. Spending more than that results in more people 
joining your forces, while spending less alienates a number of voters. 


7. You can alienate a small number of voters, but alienating too many at 
One time will result in your impeachment and subsequent removal 
from office. 
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8. The amount you spend on soliciting contributions can be up to twice 
the number of bonds you have in the treasury. 


9. You need at least one person in your camp for every $10.@@ spent on 
solicitation. After all, you don’t want to overwork your supporters. 


10. Soliciting contributions is the primary way to make money. 


ll. The game ends at election time. This is 48 months, or turns, from the 
beginning of the game (unless you are impeached). 


12. Upon completing the game, the statistics for your term in office will 


be reviewed and the game will end. 


Programming Notes 


10-5 Instructions 

60-70 Get player’s name 

80-130 Game initialization and screen setup 
149-210 Begin printing monthly status 

220-250 Crisis — half of the voters leave camp 
260-300 Continue printing monthly status 

310 Check for end of game and branch if finished 
320 Determine price for bonds 

330 Print bond price 

340-38 Allow player to buy bonds and adjust figures 
390-430 Allow player to sell bonds and adjust figures 
440-480 Player specifies amount to spend on voters 
490-560 Player specifies amount for solicitation 
57@-70O Adjust monthly figures by random amounts 
710-75 Crisis — alienated too many people 

76 Deficit-spending error message 

77-810 Screen status refresh routine 

820 Generate random number between | and 8 
830-850 Crisis — mental incompetence 

860-910 End-of-game status report 

920-98 Branching logic for game performance 

999 Excellent job message 

1IDDO-1G1O Poor job message 

1020-1040 Fair job message 

1959-107 End the game 

1D8G-109D Bad job message 

110-1129 Good money raiser message 
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1130-115@ Pick random News Flash message 
1160-1190 Print News Flash message 
120@-122@ News Flash — dishonest brother 
1230-125 News Flash — cabinet resigns 
1260-128 News Flash — economic policies 
129@-1320 News Flash — campaign practices 
1330-1350 News Flash — Mideast breakthrough 
1360-1380 News Flash — inflation down 
1390-1410 News Flash — oil prices up 
1420-144 News Flash — polls down 
1450-147 News Flash — campaign contribution 
1480-1510 Teletype printing routine 


10 
29 


38 


40 


58 


60 
70 


88 


90 


138 
119 


120 
139 
149 


159 
169 
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Big Government. 


REM BIG GOVERNMENT 

HOME :PRINT TAB( 13);"BIG GOVERNMENT":PRINT :PRI 
NT :PRINT 

PRINT “" YOU ARE THE PRESIDENT (WE WON'T SAY OFW 
HICH NEARBY COUNTRY) AND YOU HAVE TO MAKE THE 

EVERYDAY DECISIONS THAT WILL" 

PRINT “ENSURE THAT YOU WILL BE RE-ELECTED NEXT E 
LECTION (WHICH HAPPENS TO BE 48 MONTHS FROM NOW. 
)":PRINT :PRINT 

PRINT “ YOU CAN MAKE MONEY FOR THE PARTY ( 
WHICH IS ONE OF YOUR MANY JOBS) BY BUYING AN 
D SELLING BANK BONDS, BUT BE CAREFUL NOT TO AL 
IENATE TOO MANY VOTERS, BECAUSE THEY DO ALL OF YO 
UR WORK AND ARETHE KEY TO YOUR SUCCESS." 


VTAB 23:INPUT “PLEASE ENTER YOUR NAME: “;N$ 
IF LEN (N$) = @ THEN VTAB 23:CALL - 868: GOTO 6 
4) 


HOME :VTAB 1:PRINT “TREASURY FUNDS:":PRINT "BOND 

S IN BANK:":PRINT “FAVORABLE VOTERS:"“:PRINT “MON 

THS TIL ELECTION: " 

VTAB 5:PRINT “<--> <==]> <=> <=—> <==) <==) <=> 
q-—>" 

VTAB 208:POKE 34,6:HOME 


Dl = O@:Pl = O0:Z = 48:P = 100 - INT (RND (1) * 22 
):H = INT (RND (1) * 3008):E = INT (RND (1) * 39 
1):S = 3000 + H - E:Y = 3:A = INT (H / Y):I = 5: 


Q=1 

BR = INT (A / P) 

GOSUB 770: GOTO 229 

PRINT :S$ = “MR. PRESIDENT, OUR OFFICIAL SOURCES 
“;:GOSUB 1480 

P= P + I:Z = Z —- 1:GOSUB 7790 

S$ = “REPORT THAT ONLY " + STRS (Z) + “ MONTHS R 
EMAIN“ :GOSUB 1486 

S$ = "UNTIL ELECTION -TIME, AND " + STRS (D) + 
VOTERS" :GOSUB 14804 
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S$ = "WERE ALIENATED. HOWEVER, " + STRS (I) + " 
VOTERS" :GOSUB 1489 

S$ = "HAVE JOINED OUR SIDE.":GOSUB 1489 

IF RND (1) < .2 THEN GOSUB 1139:GOSUB 772 

IF FL THEN PRINT :S$ = "AN ANONYMOUS CONTRIBUTOR 


HAS JUST DONAT-ED $" + STRS (FL):GOSUB 14898:FL 
= @ 
IF Q > @ THEN 260 


FL = 1 
P = INT (1 + P / 2):GOSUB 778 
PRINT :S$ = "BAD NEWS, MR. PRESIDENT. A RECENT 


NEWS POLL SHOWS THAT YOU HAVE LOST HALF OF YOU 
R POTENTIAL VOTERS DUE TO A SURPRISE ANNOUNCEMEN 
T FROM YOUR OPPOSITION.":GOSUB 1489 

PRINT :S$ = "THE NUMBER OF PEOPLE IN YOUR CAMP N 
OW STANDS AT " + STRS (P) + ".":GOSUB 1489 
PRINT :S$ = "THE PARTY NOW HAS " + STRS (A) + " 
BANK BONDS.":GOSUB 1488 


PRINT :S$ = "YOU RECEIVED $" + STRS (H) + " IN D 
ONATIONS.":GOSUB 1489 

IF E < > @ THEN PRINT :S$ = "KICKBACKS PAID OUT 
AMOUNTED TO $" + STRS$ (E):GOSUB 1489 

PRINT :S$ = "YOU NOW HAVE $" + STRS (S) + " INT 


HE TREASURY":GOSUB 14890:PRINT 
IF Z = @ THEN 860 
C = INT (RND (1) * 11):Y¥Y = C + 17 


S$ = "BONDS ARE NOW SELLING AT $" + STRS (Y) + " 
-":GOSUB 1488@:PRINT :PRINT 

S$ = "HOW MANY BONDS DO YOU WISH TO BUY? "“":FQ = 
1:GOSUB 14808 

INPUT "";:Q$:Q = VAL (Q$):IF Q < @ THEN 832 


IF Y * Q > S THEN GOSUB 768: GOTO 340 

A=A+Q:S =S -—- Y * Q:3C = Q 

PRINT :IF Q > @ THEN GOSUB 7790 

S$ = “HOW MANY BONDS DO YOU WISH TO SELL? ":FQ = 
1:GOSUB 14894 

INPUT "";Q$:Q = VAL (Q$):IF Q < O THEN 830 

IF A < Q THEN PRINT :S$ = "MR. PRESIDENT, THE PA 

RTY ONLY HAS " + STRS (A):GOSUB 1488:SS = "BONDS 
IN THE BANK.":GOSUB 1488:PRINT : GOTO 392 

A=A -Q:S =S+Y¥* Q:C = Q 

PRINT :IF Q > @ THEN GOSUB 770 

S$ = "HOW MUCH MONEY SHOULD BE SPENT TO KEEP OU 

R VOTERS HAPPY? ($28 PER VOTER USUALLYDOES IT): 
"sFQ = 1:GOSUB 1480 

INPUT "";Q$:Q = VAL (Q$):IF Q < @ THEN 832 

IF Q > S THEN GOSUB 7608: GOTO 449 

S = S - Q:C = 1:PRINT 


GOSUB 7792 

S$ = "HOW MUCH DO YOU WISH TO SPEND ON":GOSUB 14 
88:S$ = "SOLICITING DONATIONS? ":FQ = 1:GOSUB 14 
80 


INPUT "";D$:D = VAL (D$):IF D = @ THEN 578 
IF D < @ THEN 839 
IF D > (2 * A) THEN PRINT :S$ 


"MR. PRESIDENT, 
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YOU KNOW WE NEED MORE BONDS IN THE BANK TO BA 
CK THAT TYPE OF SOLICITATION VENTURE. PLEASE R 
ECONSIDERTHE AMOUNT.":GOSUB 1488:PRINT : GOTO 49 
Ys) 

IF D > S THEN GOSUB 768: GOTO 498 


IF D< = 180 * P THEN 569 
PRINT :S$ = "BUT YOU ONLY HAVE " + STRS (P) + " 
PEOPLE TO DO":GOSUB 1488:S$ = "THE SOLICITING. 


EACH PERSON CAN ONLY SPEND $18 FOR THE PROJECT." 
:GOSUB 1488: GOTO 499 

S = S - D:GOSUB 778 

GOSUB 829 

Y= C:H = D * Y:E = O:IF C > 6 THEN FL = C * P:H 
= H + FL 

GOSUB 829 

IF C < 4 THEN E = INT (S / C) 

S = S - E + H:GOSUB 770 

GOSUB 822 

IF P = @ THEN P = l 


I = INT ((RND (1) * P) / 2) +1 

C = INT (Q / 28) 

Q = INT (RND (1) * 181):Q = INT (Q / 15) 

D= P-C:IF D< = 8 THEN I = I + INT (ABS (D) 
/ 19 * RND (1) * 11):D = 8: GOTO 148 

IF D * 28 > 9 * P THEN 719 

Pl = INT (Dl * 118 / (P * Z)) 


P = C:Dl = Dl + Dz: GOTO 149 

PRINT :PRINT "YOU ALIENATED ";D;" PEOPLE IN ONE" 
:PRINT "MONTH 1|":PRINT 

PRINT “DUE TO EXTREME MISMANAGEMENT YOU HAVE ":P 
RINT "NOT ONLY BEEN IMPEACHED " 

PRINT "AND THROWN OUT OF OFFICE BUT YOU HAVE" 
PRINT "ALSO BEEN DECLARED NATIONAL FINK." 

GOTO 1058 


S$ = "MR. PRESIDENT, WE ONLY HAVE $" + STRS (S): 
GOSUB 1488:S$ = "IN THE TREASURY. WE CANNOT COND 
ONE":GOSUB 1488:S$ = “DEFICIT SPENDING.":GOSUB 1 


480:PRINT :RETURN 

VTAB 1:HTAB 18:CALL 

VTAB 2:HTAB 16:CALL 868:PRINT A 

VTAB 3:HTAB 19:CALL 868:PRINT P 

VTAB 4:HTAB 22:CALL - 868:PRINT Z 

VTAB 24:RETURN 

C = INT (RND (1) * 8) + 1:RETURN 

PRINT :PRINT “SORRY, MR. PRESIDENT, BUT I CANNOT 
DO WHAT YOU WISH.":PRINT 

PRINT “YOU HAVE BEEN IMPEACHED ON GROUNDS OF M 
ENTAL INCOMPETENCE. YOUR TERM IS HERE~BY ENDED. 
"3;PRINT 


868:PRINT S 


GOTO 1958 
HOME 
S$ = "IN YOUR 48-MONTH TERM OF OFFICE, YOU HA 


VE OFFENDED OVER " + STRS$ (Dl) + “ PEOPLE.":GOSU 
B 1488:PRINT 
IF P = @ THEN P = 1 
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L = INT (A / P) 
S$ = “YOU BEGAN WITH A RATIO OF " + STRS (BR) + 
" BANK":GOSUB 1488:S$ = "BONDS TO EVERY VOTER, A 
ND YOU ENDED WITHA RATIO OF “ + STRS (L) + " BON 
DS PER VOTER.":GOSUB 1489 
PRINT 
IF Dl > P THEN PRINT : GOTO 729d 
IF P > 110 AND A > 1108 AND S > 2500 THEN 1199 
IF L < 7 THEN 1989 
IF Pl > 10 THEN 1980 
IF L < 180 AND Dl > 30 THEN 19909 
IF Pl > 3 THEN 1020 
IF L < 18 THEN 1020 
PRINT "A TRULY REMARKABLE PERFORMANCE !1":PRINT 
"SURELY NONE OF YOUR PREDECESSORS COULD HAVE DO 
NE A MORE NOBLE JOB.": GOTO 1950 
PRINT "YOUR UNFEELING, AUTOCRATIC RULE IS R 
EMINISCENT OF CHICAGO DURING THE AGE OFBOSS TWEE 
D." 
PRINT "THE VOTERS (THAT ARE STILL LEFT) FIND Y 
OU A. VERY UNLIKABLE GUY. YOU WILL BE LUCKY TO 
GET ANY JOB IN THIS COUNTRY IN THE FUTURE.": GOT 
O 1858 
PRINT "WELL, YOU DIDN'T MAKE THE HALL OF FAME, B 
UT YOU DIDN'T MAKE MANY ENEMIES EITHER.“ 
PRINT INT ((P * 8) * (1 + RND (1) * 13) / 1808); 
" PEOPLE WOULD LIKE TO SEE YOU DEAD," 
PRINT “BUT WE ALL HAVE LITTLE PROBLEMS NOW AND T 
HEN." 
PRINT "“":PRINT "SO LONG FOR NOW." 
FOR J = 1 TO 108000:NEXT 
PRINT “RUN MENU" 
PRINT "POOR JOB, ";N$;"."s:PRINT “YOU WERE SUPPOS 
ED TO WORK AT THE JOB, NOT JUST SIT BACK AND T 
AKE THE PAY." 
GOTO 19504 
PRINT "YOUR PARTY'S BANKBOOK GREW QUITE A BIT. Y 
OU'RE AN EXCELLENT PRESIDENT, BUT YOUR DETRACTOR 
S ARE ASKING FOR A" 
PRINT "CONGRESSIONAL REVIEW OF YOUR FINANCES. G 
OOD LUCK." 
GOTO 13598 
REM CAMPAIGN DISASTERS 
CD = INT (RND (1) * 10):IF CD < 1 OR CD > 9 THEN 
11498 
ON CDGOSUB 1208,1238,1268,1298,1338,1360,1390,14 
20,1458 
S$ = "Ke¥kkKK&KkKKKEK NEWS FLASH kkkkkkkkaxakk" 
+ CD$ 
PRINT ""“sPRINT :PRINT :GOSUB 14898 
PRINT :PRINT 
RETURN 
CD$ = " YOUR BROTHER WAS FOUND TO BE IN C 
AHOOTS WITH A SPY RING FROM BOTSWANA. YOU HAVE 
LOST ONE HALF OF YOUR VOTERS AND ONE THIRD OF 
YOUR BONDS." 
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A = INT (A * .66):P = INT (P / 2):D=D +P 
RETURN 

CDS = " TODAY THE ENTIRE PRESIDENTIAL CABINET R 
ESIGNED IN A MASSIVE DISAGREEMENT OVER DOMESTIC 
POLICY. YOU LOSE HALF YOUR VOTERS." 

P = INT (P / 2):D=D+P 

RETURN 

CD$ = " THE NEW ECONOMIC POLICIES ANNOUNCED T 
ODAY BY THE PRESIDENT HAVE PRECIPITATEDA FALLING 
-OUT BY BANKERS, AND THE PRESI-DENT HAS LOST HAL 
F OF HIS BANK BONDS AS A RESULT OF THE REACTION. 


A = INT (A / 2) 

RETURN 

CDS = " THE CAMPAIGN PRACTICES OF THE PRESI- D 
ENT CAME UNDER CLOSE SCRUTINY TODAY BY THE NATIO 
NAL BOARD OF REVIEW (N.B.R) AND THE PRESIDENT 
'S PARTY HAS BEEN FINED $" 

CDS = CD$ + STRS (INT (S / 3)) + “." 

S = S§ - INT (S / 3) 

RETURN 

CD$ = " THE PRESIDENT HAS SUCCESSFULLY PRE- V 
ENTED A MID-EAST CRISIS BY HIS SKILLFULHANDLING 
OF FOREIGN AFFAIRS. fTHIS IS EXPECTED TO HAVE 

A GOOD EFFECT ON HIS RE-ELECTION DRIVE." 

P = INT (P * 1.4) 

RETURN 

CD$ = " RECENTLY RELEASED REPORTS SHOW THAT T 
HE RATE OF INFLATION HAS SLOWED CONSID-ERABLY DU 
E TO THIS ADMINISTRATION'S EFFORTS TO REDUCE 
GOVERNMENT SPENDING." 

P = INT (P * 1.2) 

RETURN 

CD$ = " THE ARABS HAVE AGAIN RAISED OIL PRICESI 

N RETALIATION TO GOVERNMENT CONCESSIONSIN THE MI 
D-EAST. THIS IS EXPECTED TO REFLECT IN PRESID 
ENTIAL SUPPORT AT THE POLLS THIS FALL." 

P = INT (P * .8) 

RETURN 

CD$ = " RECENT PUBLIC OPINION POLLS SHOW THE P 
RESIDENT HAS HAD A 198% DROP IN VOTER SUPPORT." 
P = INT (P * .9) 

RETURN 

CDS = " TODAY, CHARLES T. FARNSWORTH, THE N 
OTED TEXAS MILLIONAIRE, HAS ANNOUNCED HIS SUPPO 
RT FOR THE PRESIDENT AND CON- TRIBUTED $4599 TO 
THE PARTY AT A MORNINGPRESS CONFERENCE." 

S= S$ + 4500:P =P +1 


RETURN 
SPEED= 137:FOR X = 1 TO LEN (S$):PRINT MID$ (S$, 
X,1);:IF MID$ (S$,X,1) = “ “ THEN 1590 


SOUND = PEEK ( — 16336) 
NEXT :IF NOT FQ THEN PRINT 
FQ = O8:SPEED= 255:RETURN 
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9. Tic-Tac-Toe 


Remember sitting for hours when you were a child, playing Tic-Tac- 
Toe with whoever would take the time to sit and play with you? Well, now 
you have a partner who is always ready, willing, and quite able (to beat 
you). This is as good an excuse as any to Start your second or third 
childhood (many of us go through it, don’t we’). 

With the computer as your opponent you may have met your match, 
because you will find that the computer plays quite well. The computer 
even doubles as scorekeeper, keeping track of who wins which games, 
including those that go to the proverbial ‘‘cat.”’ 

This game uses only text, but it can be easily modified to use graphics 
by changing the display routine in line 69@. This is the only line that 
would have to be changed. 

This game simulates how a person thinks. The computer evaluates the 
current board conditions and makes a logical choice as to which move to 
make. This is one reason why children enjoy playing this simple game—it 
encourages them to think logically. The choices are based on a mathe- 
matical analysis of the possible winning positions. This analysis is 
performed in lines 19@ through 510. 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 9. If you are 
not using the menu, run the program. 


2. Choose X’s or O’s by pressing the X or O key. 


3. Specify if you want to move first by answering Yes (Y) or No (N) to the 
prompt. 


4. When it is your turn, signify the position you want to move to by 
pressing the number associated with that position. Positions are num- 
bered a follows: 


l 2 3 
4 5 6 
7 8 9 


5. The object of the game is to get three of your markers in a row — 
horizontally, vertically, or diagonally. 
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6. If neither you nor the computer gets three markers in a row, the “cat” 
wins the game. 


7. At the game’s completion, you can play again or exit to the Main 


Menu 


Programming Notes 


10-3 Initialization and screen preparation 
4-5 Prompt for you to choose a marker 
60 Assignment of X and O to you and the computer 
1O-8D Prompt for you to choose who goes first 
9D Screen-instruction setup 
1D@ Screen display if you move first 
110-120 Selection of position if computer moves first 
130-160 Get your move and see if it’s valid 
17 Check for a winner 
18 Set arrays to determine the winner 
19-510 Select computer’s move 
520 Set computer move, display results, check for winner, 
and loop back for next move 
6OO-680 Determine array values for judging the winner 
690 Display playing board 
71O@O-810 Determine if there is a winner and display appropriate 
message 
820-830 Prompt to play again or exit to Main Menu 
840-850 End current game 
Tic-Tac-Toe. 
16 REM TIC~TAC-TOE 
20 FOR X = 1 TO 9:B(X) = O:NEXT :M$(0) = "." 


HOME :PRINT TAB( 15); "“TIC~TAC-TOE" 


PRINT :PRINT “WOULD YOU LIKE X'S OR O'S: "“; 
GET M$:IF M$ < > "X" AND M$ < > "O" THEN 50 
PRINT M$:M$(9) = M$:M$(1) = "X":IF M$ = "X" THEN 


MS (1) = "9" 
PRINT :PRINT “WOULD YOU LIKE TO MOVE FIRST (Y/N) 


GET CHS:IF CHS < > "Y" AND CHS < »> "N" THEN 80 
PRINT CH$:HOME :PRINT “POSITIONS ARE NUMBERED 1 

THROUGH 9 FROM THE TOP-LEFT TO BOTTOM-RIGHT CORN 
ER.":VTAB 15:POKE 34,5:PRINT :HOME 

IF CH$ = "Y" THEN GOSUB 6998: GOTO 138 

X INT (RND (2) * 10):IF X < 1 OR X > 9 THEN 11 
g 

B(X) = 1:GOSUB 699 

VTAB 26:PRINT "YOUR MOVE (1-9): 


c 
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2:PRINT M$(B(X + Y));" 


TURN 
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GET X$:X = VAL (X$):IF X < 1 OR X > 9 THEN 148 

PRINT X:IF B(X) < > @ THEN PRINT CHRS (7): GOTO 
1308 

B(X) = 9 

GOSUB 7698:REM SEE IF WINNER 

GOSUB 699 

REM 

REM SELECT A MOVE 

REM 

CF = 2 

IF R(l) < > CF THEN 260 

FOR X = 1 TO 3:IF B(X) = 8 THEN 5228 

NEXT 

IF R(2) < > CF THEN 2994 

FOR X = 4 TO 6:IF B(X) = 8 THEN 529 

NEXT 

IF R(3) < > CF THEN 3292 

FOR X = 7 TO 9:IF B(X) = 8 THEN 528 

NEXT 

IF R(4) < > CF THEN 3528 

FOR X = 1 TO 7 STEP 3:IF B(X) = 8 THEN 5290 

NEXT 

IF R(5) < > CF THEN 382 

FOR X = 2 TO 8 STEP 3:IF B(X) = @ THEN 5298 

NEXT 

IF R(6) < > CF THEN 419 

FOR X = 3 TO 9 STEP 3:IF B(X) = 8 THEN 5208 

NEXT 

IF R(7) < > CF THEN 449 

FOR X = 1 TO 9 STEP 4:IF B(X) = 8 THEN 522 

NEXT 

IF R(8) < > CF THEN 479 

FOR X = 3 TO 7 STEP 2:IF B(X) = 9 THEN 5298 

NEXT 

IF CF < > 18 THEN CF = 18: GOTO 239 

Y = O@:FOR X = 1 TO 9:IF B(X) = 8 THEN Y = +l: 

cC(Y) =x 

NEXT 

X = INT (180 * RND (2)):IF X < 1 OR X > Y THEN 52 

4) 

X = cC(X) 

B(X) = 1:GOSUB 698:GOSUB 708: GOTO 1324 

R(1) = B(l) + B(2) + B(3) 

R(2) = B(4) + B(5) + B(6) 

R(3) = B(7) + B(8) + B(9) 

R(4) = B(1) + B(4) + B(7) 

R(5) = B(2) + B(5) + B(8) 

R(6) = B(3) + B(6) + B(9) 

R(7) = B(1) + B(5) + B(9) 

R(8) = B(3) + B(5) + B(7) 

RETURN 

HOME :FOR X = 1 TO 9 STEP 3:HTAB 17:FOR Y = 8 TO 


“*sNEXT :PRINT :NEXT :RE 


FOR X = 1 TO 9:IF B(X) < > @ THEN NEXT : GOTO 8 
Js) 

GOSUB 692 

FOR X = 1 TO 8 

IF R(X) = 27 THEN 760 

IF R(X) = 3 THEN 782 

NEXT :RETURN 

GOSUB 698 

VTAB 20:PRINT "YOU WON.....THAT WAS A GOOD GAME" 
: GOTO 8208 

GOSUB 698 

VTAB 20:PRINT "I WON......-JUST CAN'T KEEP UP, C 
AN YOU?": GOTO 820 

GOSUB 692 

VTAB 20:PRINT "WELL, CHALK ONE UP FOR THE CAT... 
PRINT :PRINT “PLAY AGAIN (Y/N): "; 

GET CH$:IF CHS < > "Y" AND CHS < > "N" THEN 83 
g 

PRINT CH$:POKE 34,0:HOME :IF CHS < > "Y" THEN P 
RINT :PRINT CHRS (4);"RUN MENU" 

RUN 
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10. Qubic 


If you think Tic-Tac-Toe is too easy, why not try something with a little 
more “‘depth?”’ Qubic is three-dimensional tic-tac-toe. You win by get- 
ting three in a row in any direction on any horizontal, vertical, or diagonal 
plane. 

The computer, as your opponent, plays an aggressive game. If you can 
win playing against the computer, you are ready for the US Olympic 
Qubic Team. Tryouts are in Kenosha Falls, Wisconsin, on the 5th Monday 
in February each year. 

Play begins with the traditional toss of the chip. You have a 50-5@ 
chance of winning the toss, but the computer does too. The player who 
wins the toss moves first. From this point on it’s every player for himself. 

Remember, you or the computer can win with three markers in a row in 
any direction! There may be more directions than you are first aware of 
because of the three-dimensional board, so stay alert. 

The game’s logic is similar to that used in Tic-Tac-Toe, except pointer 
atrays are used to determine the analytical course the program will follow. 
There are 49 possible ways to win in Qubic, thus the amount of analysis 
that is completed before the computer chooses a move can be formidable. 
The computer, however, does it with one equation. 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 10. If you 
are not using the menu, run the program. 


. Select X’s or O’s by pressing the X or O key. 
. The computer will randomly select who goes first. 
. Enter the level and position where you want to place your marker. 


. Levels are numbered 1 through 3, from left to mght. 


NH oa S&P WN NY 


. Positions are numbered, on each level, as the positions in Tic-Tac- 
Toe: 


7. The object of the game is to get three of your markers in a row, in any 
direction. 
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8. If neither the player nor the computer gets three in a row, the “cat’’ is 


the winner. 


9. Atthe completion of each game you can play again or exit to the Main 


Menu. 


10. If you choose to exit, a scorecard is displayed showing how many 
games were won by each side. 


Programming Notes 


1D-90 
1DO-11D 
120 
130-140 
15@-160 
17D 

18D 

19@ 
20D-210 
220-240 
250-260 


270 
280 
290-4490 
45D 
SOO 
60D-660 
670-690 
71OO-720 
730-74 
75@-76D 
71® 


78@-79D 
8OO-840 
850-950 


Program initialization 

You select type of marker 

Assignment of X’s and O’s to you and the computer 
Choose and print who moves first 

Delay to read messages 

Setup the screen 

If you go first, display board and get move 
Computer takes best position, if available 

Get level for move and check validity 

Get position for move and check validity 

Check if position is taken and make move if it is not 
taken 

Display new board 

Check if winner 

Determine the computer’s move 

Display new board and check for winner 

Routine to display board status 

Routine to check for winner 

You win, display notice 

Computer wins, display notice 

Cat wins, display notice 

Play again or exit to Main Menu 

End program by showing final score and run the Main 
Menu program 

Restart game 

Routine to accumulate data arrays 

Data arrays for possible win positions 
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Qubic. 


REM QUBIC 

POKE 758,8:POKE 751,80:POKE 752,@ 

DIM B(3,9),R(49),P(49,3,2),T(27,2) 

IW = O:CW = B:YW = @ 

FOR X = 1 TO 49:FOR Y = 1 TO 3:READ A:P(X,Y,1) = 
INT (A / 10):P(X,Y,2) = A - P(X,Y,1) * 18:NEXT 
:NEXT 

MS(0) = ".":M1$ = "CHECKING FOR WINNER":M2S = “I 
'M THINKING" 

TEXT :HOME 

FOR L = 1 TO 3:FOR P = 1 TO 9:B(L,P) = O:NEXT :N 

EXT 

PRINT TAB( 18);"QUBIC" 

PRINT :PRINT “WOULD YOU LIKE X'S OR O'S: "“; 

GET MS:IF M$ < > "X" AND MS < > "O" THEN 119 


PRINT M$:M$(9) = M$:M$(1) = "“X":IF M$ = "X" THEN 
MS (1) = "oO" 

X = RND (2):IF X > .5 THEN PRINT :PRINT :PRINT " 
I WIN THE TOSS....I GO FIRST !": GOTO 159 


PRINT :PRINT “YOU WON THE TOSS OF THE CHIP...... 
YOU GO FIRST 1!" 

FOR DE = 1 TO 1289 

NEXT DE 

HOME :PRINT "LEVELS ARE 1, 2, AND 3, LEFT TO RIG 
HT.":PRINT “POSITIONS ARE NUMBERED (ON EACH LEVE 


L) 1 THROUGH 9 FROM THE TOP-LEFT TO THE BOTT 
OM-RIGHT CORNER.":VTAB 15:POKE 34,5:PRINT :HOME 
IF X < = .5 THEN GOSUB 588: GOTO 209 

B(2,5) = 1:GOSUB 58@ 

VTAB 20:HTAB 1:CALL - 958:PRINT “LEVEL (1-3): 


GET CHS$:L = VAL (CHS):IF L < 1 OR L > 3 THEN 2198 
PRINT L:PRINT “POSITION (1-9): "“; 

GET CHS:P = VAL (CHS):IF P < 1 OR P > 9 THEN 239 
PRINT P 

IF B(L,P) < > @ THEN PRINT CHRS (7): GOTO 209 
B(L,P) = 9 

GOSUB 598d 

GOSUB 680:REM SEE IF WINNER 

REM 


REM SEE IF COMP CAN WIN 


IF B(2,5) = @ THEN B(2,5) = 1: GOTO 458 


FOR X = 1 TO 49:IF R(X) < > CF THEN 390 
FOR Y = 1 TO 3:L = P(X,Y,1):P = P(X,Y,2) 
IF B(L,P) = 8 THEN B(L,P) = 1: GOTO 459 
NEXT Y 
NEXT X 


IF CF < > 18 THEN CF = 18: GOTO 3598 
C = 6:FOR L = 1 TO 3:FOR P = 1 TO 9:IF B(L,P) = 
@ THEN C = C + 1:T(C,1) = L:T(C,2) = P 
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NEXT :NEXT 

T = INT (RND (2) * 27):IF T < 1 OR T > C THEN 43 
g 

B(T(T,1),T(T,2)) = 1 

GOSUB 588:GOSUB 688: GOTO 280 

HOME :FOR L = 1 TO 3:FOR P = 1 TO 7 STEP 3:VTAB 
(11 + INT (P / 3)):HTAB (L * 8):FOR Y = P TO P + 


2:PRINT MS(B(L,Y)):" "“;sNEXT :NEXT :NEXT :PRINT 
: RETURN 
VTAB 20:HTAB 1:CALL - 958:TS = M1$:M1$S = M2S:M2 


S$ = T$:PRINT M1$;:FOR L = 1 TO 3:FOR P = 1 TO 9: 
IF B(L,P) < > @ THEN NEXT :NEXT : GOTO 730 


FOR X = 1 TO 49 
IF R(X) = 27 THEN POP : GOTO 679 


IF R(X) 3 THEN POP : GOTO 799 

NEXT 

RETU RN 

VTAB 20:HTAB 1:CALL =- 958:FOR Y = 1 TO 3:PRINT 
"("sPp(X,Y,1)3;"—=";P(X,Y,2)3:") "“::NEXT :PRINT 


YW =. PEEK (750):YW = YW + 1:POKE 750,YW 

PRINT “YOU WON.....THAT WAS A GOOD GAME": GOTO 7 
508 

VTAB 20:HTAB 1:CALL - 958:FOR Y = 1 TO 3:PRINT 
"("sPp(X,Y,1):;"—<"3P(X,Y,2);") “z::NEXT :PRINT 

IW = PEEK (751):IW = IW + 1:POKE 751,1W 

PRINT "I WON....-JUST CAN'T KEEP UP, CAN YOU ?": 
GOTO 758 

CW = PEEK (752):CW = CW + 1:POKE 752,CW 

VTAB 20:HTAB 1:CALL = 958:PRINT "WELL, CHALK ON 
E UP FOR THE CAT....." 

PRINT :PRINT “PLAY AGAIN (Y/N): "3; 

GET CH$:IF CHS < > "Y" AND CHS < > "N" THEN 76 
g 


PRINT CH$:IF CHS = "N" THEN POKE 34,8:HOME :PRIN 
T :PRINT :PRINT “YOU WON: "“;PEEK (7598):PRINT "I 
WON : ";PEEK (751):PRINT “CAT WON: “;PEEK (752) 


:PRINT :PRINT “THANKS FOR THE GAMES!":PRINT CHRS 
(4):"RUN MENU“ 
POKE 34,9 
GOTO 69 
FOR X = 1 TO 49:R(X) = O:IF INT (X / 3) * 3 =X 
THEN PRINT “."s3 
FOR Y = 1 TO 3 
R(X) = R(X) + B(P(X,Y,1),P(X,Y,2)) 
NEXT Y:NEXT X 
RETURN 
DATA 11,12,13,14,15,16,17,18,19,11,14,17,12,15, 
18,13,16,19,11,15,19,13,15,17 
DATA 21,22,23,24,25,26,27,28,29,21,24,27,22,29: 
28,23,26,29,21,25,29,23,25,27 
DATA 31,32,33,34,35,36,37,38,39,31,34,37,32,398 
38,33,36,39,31,35, 39,33,35,37 
DATA 11,21,31,12,22,32,13,23,33 
DATA 14,24,34,15,25,35,16,26, 36 
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AMS sams Books cover a wide range of technical topics. We are always looking for 
- more information from you, our readers, as to which additional topics need cover- 
age. Please fill out this questionnaire and return it to us with your suggestions. 


They will be appreciated. 
Please check the areas of interest: 


1. CURRENT TECHNOLOGIES 2. NEW TECHNOLOGIES 
LJ Electronics C) Fiber Optics 
LI Circuit Design CL} Robotics 
L} Computers L] Security Electronics 
LJ Business Applications L) Speech Synthesis 
() Fundamentals LJ Telecommunications 
CJ Languages ____ LJ Cellular 
en CL) Satellite 
L] Machine Specific:__ LJ Video 
LJ Other 


L) Microprocessors 
LJ Networking 
C) Servicing/Repair 


Other 
. Do you CJ own C) operate a personal computer? Model 


G 


. Have you bought other Sams Books? Please list: 


. OCCUPATION 6. EDUCATION 
LJ Business Professional CO High School Graduate 
SS C) Tech School Graduate 
CJ Educator L) College Graduate 
LJ Engineer. LJ Post-graduate degree 
_ Specify 
CL) Hobbyist 
CL) Programmer 
L) Retailer 
C] Student 


on 


Specify 


Other 
COMMENTS 


(OPTIONAL) 
NAME 


a eee 


ADDRESS 


Book Markyiepy yoog 


CITY STATE ZIP 


SINSS 22166 22331 22337 22382 22394 


SAMS. 


Book Markyrepy yoog 


BUSINESS REPLY CARD 


FIRST CLASS PERMIT NO. 1076 INDIANAPOLIS, IND. 


POSTAGE WILL BE PAID BY ADDRESSEE 


HOWARD W. SAMS & CO., INC. 
4300 WEST 62ND STREET 

P.O. Box 7092 

Indianapolis, IN 46206 


ATTENTION: Public Relations Department 


NO POSTAGE 
NECESSARY 


IF MAILED 
IN THE 
UNITED STATES 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


17,27,37,18,28,38,19,29,39 
11,22,33,14,25, 36,17, 28,39 
13,22,31,16,25,34,19,28, 37 
11,24,37,12,25,38,13,26, 39 
17,24,31,18,25,32,19,26,33 
11,25,39,13,25,37,17,25,33,19,25,31 
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ll. Depth Charge 


In Depth Charge, you control the nuclear-powered boat Nemesis, the 
fastest boat in the Navy, on a search-and-destroy mission in the North 
Atlantic. There are always three submarines beneath you, moving at 
different speeds. You destroy them by hitting them with depth charges. 
Timing is of the essence and accuracy is a must. 

The final score is based on how many submarines are destroyed. The 
deeper and faster the submarine, the more points you accumulate for 
destroying it. You only have five passes across the ocean, so don’t 
hesitate. 

This program uses high-resolution shape tables to create the illusion of 
motion. Because it is possible to have up to nine items on the screen at one 
time (one ship, three submarines, and five depth charges), there are times 
when the computer is very ““busy”’ redrawing shapes from the predefined 
tables. When this happens, the game’s speed slows down. Do not despair, 
however, as the pace increases as the number of items on the screen 
decreases. 

Play the game and study the listing to learn more about using shape 
tables. All the shapes in this game (and in other programs in Apple 
Games) were made using the Shape Table Generator program (see 
Program 12). 


Game Rules 


1. If you are selecting the game from the Main Menu, choose 11. If you 
are not using the menu, run the program. 


. The instruction screen will be displayed. 
. Press <RETURN> to begin play or <ESC> to exit the program. 
. Once the game begins, press any key to drop depth charges. 


. Up to five depth charges can be on the screen at one time. 


SN On Fe WO WNW 


. The object of the game is to destroy as many enemy submarines as 
possible by hitting them with depth charges. 


7. As each submarine is destroyed, it is replaced with another one. 


8. The game is over when you have crossed the screen the allotted number 
of times. 
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9. When the game is completed, the program returns to the instruction 
screen to play again or exit to the Main Menu. 


Programming Notes 


10-4 Program initialization 

50-60 Load and initialize shape table 

1%) Branch to instruction screen 

19D Game initialization 

110 Generate locations for the three submarines 

120 Draw initial ship and pass counter 

130 Draw initial submarines 

200-210 Draw ship, calculating new position. Increment coun- 
ters 

220 Check for keypress 

230-260 A keypress, so drop depth charge if less than five depth 
charges are displayed 

270 Short delay if no depth charges are on the screen 

280-310 Draw depth charges 

320-360 Check if depth charge has hit a submarine and blow up 
the submarine if it is a hit 

370-430 Check if depth charges are near the bottom of the 
screen; if they are, remove them 

440-460 Draw submarines in correct places and calculate their 
next position 

47© Branch again 

S5S@O-53O Determine location for submarines 

55G-63@0 Blow up submarine and adjust score 

640-69G Initial playing screen, draw border and sea 

1OO-75@ Initialize game pointers 

8OD-84G Display instruction screen 

850-88 Get keypress and determine action 

Depth Charge. 

18 REM DEPTH CHARGE 

28 Ml = PEEK (115):M2 = PEEK (116) 

38 HIMEM: 8889 

48 DIM SP(3,3),DC(5,2) 

38 PRINT "BLOAD SUB.OBJ" 

68 POKE 232,32:POKE 233,78 

78 GOTO 829 


18g HOME :GOSUB 788:GOSUB 658 
119 FOR X = 1 TO 3:GOSUB 588:NEXT 
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120 


130 
200 


210 


SH = 275:XDRAW lAT SH,19:PA = 1:VTAB 23:HTAB 31: 
PRINT "PASS: ";PA 

FOR X = 1 TO 3:XDRAW 2AT SP(X,1),SP(X,2) :NEXT 

XDRAW LAT SH,19:SH = SH - 3:IF SH < = 4 THEN SH 
= 275:PA = PA + 1:VTAB 23:HTAB 31:PRINT "PASS: 
"ePA 

XDRAW 1AT SH,19:IF PA > NP THEN 889 

KB = PEEK ( - 16384):IF KB < 128 THEN 279 

POKE - 16368,9:REM RESET STROBE 

IF DC > = 5 THEN 278 

DC = DC + 1:DC(DC,1) = SH:DC(DC,2) = 21 

XDRAW 3AT DC(DC,1),DC(DC, 2) 

IF DC = 8 THEN FOR J = 1 TO 308:NEXT : GOTO 3798 
FOR J = 1 TO DC 

XDRAW 3AT DC(J,1),DC(J,2) 


DC(J,2) = DC(J,2) + 3:IF DC(J,2) > = 157 THEN T 
8 = l: GOTO 3698 

XDRAW 3AT DC(J,1),DC(J,2) 

FOR: X = 1 TO 3:IF DC(J,1) < SP(X,1) -— 5 OR DC(J, 


1) > SP(X,1) + 6 THEN 359 

IF DC(J,2) < SP(X,2) -— 6 OR DC(J,2) > SP(X,2) TH 
EN 350 

GOSUB 558:GOSUB 500:SP(X,1) = 1:XDRAW 2AT SP(X,1 
),SP(X,2) 
NEXT 
NEXT 

T9 = @:IF DC = @ OR T8 = BO THEN 440 

FOR J = 1 TO DC 

IF DC(J,2) > = 157 THEN MI = MI + 1: GOTO 419 
T9 = T9 + 1:DC(T9,1) = DC(J,1):DC(T9,2) = DC(J,2 
) 

NEXT 

DC = T9 

HTAB 1:VTAB 23:PRINT "MISSES: ";MI - HI:HTAB 1:V 
TAB 22:PRINT "HITS: ";HI 

T8 = @ 

FOR X = 1 TO 3:XDRAW 2AT SP(X,1),SP(X,2):SP(X,1) 
= SP(X,1) + SP(X,3):IF SP(X,1) > = 275 THEN SP 
(X,1) = 4 
XDRAW 2AT SP(X,1),SP(X,2) :NEXT 

GOTO 280 

T9 = INT (RND (1) * 10):IF T9 < 1 THEN T9 = 1 
SP(X,3) = T9:SP(X,1) = INT (RND (1) * 290) 
SP(X,2) = INT (RND (1) * 155):IF SP(X,2) < 25 OR 
SP(X,2) > 155 THEN 5208 

RETURN 

FOR Q = 2 TO 4:SCALE= Q:XDRAW 2AT SP(X,1),SP(X,2 
):VTAB 1:HTAB 1:PRINT "":NEXT 

FOR Q = 4 TO 1 STEP - 1:SCALE= Q:XDRAW 2AT SP(X 
,1),SP(X,2) :NEXT 

TT = TT + INT (SP(X,2) / 2 + SP(X,3) * 5) 
XDRAW 3AT DC(J,1),DC(J,2):DC(J,2) = 160 

HI = HI + 1 

IF TT > HT THEN HT = TT 

IF TT > 508 THEN NP 6 

IF TT > 758 THEN NP 7 
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HTAB 30:VTAB 22:PRINT "SCORE: ";TT:RETURN 

REM DRAW BORDER AND SEA 

HGR :HCOLOR= 3:HPLOT 9,28 TO 279,20 

ROT= @:SCALE= 1 

HPLOT 8,8 TO 279,86 TO 279,159 TO 8,159 TO @,@ 
TT = Q 

RETURN 

BB = 159:LB = @6:RB = 279:SL = 20 

NP = 5:TT = O@:MI = O:HI = BG 

FOR X = 1 TO 3:FOR Y = 1 TO 3:SP(X,Y) = O:NEXT 


FOR X = 1 TO 5:DC(X,1) = @:DC(X,2) = O:NEXT 

DC = @:POKE - 16368,8 

RETURN 

TEXT :HOME :PRINT TAB( 13);"“DEPTH CHARGES" 

PRINT :PRINT "SCORE: “;TT;TAB( 20);"HIGH SCORE: 
“e:HT:PRINT 

PRINT "PRESS <RETURN> TO PLAY, <ESC> TO END" 
PRINT :PRINT :PRINT “ANY KEY FIRES DEPTH CHARGES 
- ONLY FIVE PASSES ALLOWED - EXTRA PASSES AT 598 


8 AND 758 POINTS“ :PRINT 
VTAB 5:HTAB 38:PRINT " “; 
GET AS 


IF A$ = CHRS$ (13) THEN PRINT : GOTO 1989 

IF A$ = CHRS$ (27) THEN PRINT :POKE 115,Ml:POKE 1 
16,M2:PRINT CHR$ (4);"RUN MENU" 

GOTO 858 
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Section 3 
UTILITY AND MISCELLANEOUS 
PROGRAMS 


12. Shape Table Generator 


This utility allows you to quickly and easily create high-resolution 
shape tables for use in your programs. While the program Is in use, note 
that the actual design is produced in low-resolution graphics. This is so 
you can easily see and create the details of your design. 


Several programs in Apple Games use high-resolution graphics shape 


tables. All of these tables were created using this program. With a little 
practice, you should be able to easily create similar designs and shape 
tables. 


Program Instructions 


I. 


If you are selecting the program from the Main Menu, choose 12. If 
you are not using the menu, run the program. 


. The first question asked is the beginning address for the shape table. 


Enter a decimal number representing where your shape table will be 
stored in memory. This can be any location as long as it will not be 
“disturbed” by any other program or variables the computer has in 
memory at the time it is later used. I use a large number, such as 
2@@@O@, and this works well in most instances. 


. The next question is how many shapes you will be making for the 


table. This should be a decimal number from 1 to 255. If you use 
more than 255 shapes, your shape table will not work properly. 


. Finally, you will be asked the name of your shape table. This can be 


any valid DOS (Disk Operating System) file name. It must begin 
with a letter and it cannot contain commas or colons. Total length for 
the file name should not exceed 29 characters. 


. The drawing screen will be displayed. The status lines are at the 


bottom of the screen. Note the direction and mode indicators. 


. To change the cursor’s direction, use the I, J, K, and M keys. These 


represent up, left, right, and down, respectively. If you are using an 
Apple Ile or Apple Iic, you can use the arrow keys to change the 
direction of the cursor. Try these keys and note their effect on the 
indicators. 


72 


7. The mode can be in one of two states — Plot or NoPlot. To change 
the mode, use the X key to toggle between the two states. Try this and 
note its effect on the mode indicator. 


8. Now you are ready to draw your shape. Be sure you are in Plot mode 
and choose a direction. Press the <SPACE BAR> and the plotting 
cursor moves in the direction you have chosen. Change mode and 
direction to construct various designs. 


9. Warning: Do not move the cursor more than two spaces UP when in 
the NoPlot mode. If you do, a portion of the shape or shape table will 
be lost. This is a limitation of Applesoft. To get around this limita- 
tion, you can go up two spaces, left one space, right one space, then 
up two more spaces, and so on. 


10. To start over, press C to clear the screen. 


11. To start your shape at any specific X,Y coordinate, press R. If you do 
not specify a starting location, the center of the screen is used. 


12. When you have completed a shape, press <ESC> and the computer 
will save it to memory. This process may take a few moments, 
depending on the shape’s complexity. You can then draw another 
shape for your table. 


Programming Notes 


It is easy to use your shape table in programs. The first step is to 
BLOAD the table into memory. Then POKE the pointers to the beginning 
of the table into memory locations 232 and 233. The following Applesoft 
BASIC instructions will accomplish this task: 


% = Beginning decimal address of table 
J INT (X / 256): K =x - J* 256 
POKE 232% K: POKE 233% J 


Now you can use your shape table with commands such as DRAW and 
XDRAW. These commands are detailed in the Applesoft Reference Man- 
ual, 

Experiment and have fun. Be sure the file name you specify is not the 
same as another file on the disk, or you could erase the original file. 


1Q-4@ Program initialization 

SO Get and validate beginning address for table 
6 Get and validate number of shapes 

1@ POKE values for number of shapes 
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8O-9O Get and validate name for shape table 

1DGD-14D Program initialization 

15G-35@ Translate shape and POKE into memory 

360-370 Query for another shape 

380 Increment shape counter, see if table is full 

390-480 Set up plotting screen and initial modes 

490 Get keypress and convert it to uppercase 

SOO Make ‘“‘click”’ to show a keypress 

510-59 Check for valid keypresses 

600 Keypress error, ring bell and loop back 

610-620 Switch between Plot and NoPlot modes 

630-650 Command to clear shape 

660 Change direction to up 

67 Change direction to down 

680 Change direction to left 

690 Change direction to right 

100-810 Command to move cursor 

820-880 Command to reset plotter 

890-930 Subroutine for shape-translation process 

940-960 Get Y/N response and convert it to uppercase 

970-108@D Short instruction display 

109@-1110 Prompt and get keypress 

1120-115 Save shape table to disk and exit to the Main Menu 

1160-129 REMark statements explaining how to use tables 
Shape Table Generator. 

18 REM SHAPE TABLE GENERATOR 

20 M1 PEEK (115):M2 = PEEK (116):HIMEM: 8192 

38 GOSUB 979 

40 DEF FN MOD(Q) = Q - INT (Q / 256) * 256 

58 INPUT "WHAT IS THE BEGINNING (DECIMAL) ADDRESS 0 


F THE TABLE? ";AS$:BA = INT (VAL (AS$)):IF BA < 25 
6 OR BA > 65536 THEN 58 


60 INPUT "HOW MANY SHAPES ? ";NS$:N = INT (VAL (NS) ) 
:IF N < 1 THEN 68 

728 POKE BA,N:POKE BA + 1,9 

88 INPUT "NAME OF TABLE ? ";N9S 

908 IF LEN (N9$) = O@ THEN 80 

192 SN l1:A = BA + 2 + (N * 2) 


118 POKE 233,INT (BA / 256) 
120 POKE 232,FN MOD(BA) 

132 DIM A(5900) 

148 GOTO 488 

158 A(MA) = 255 

1608 Al=A 

1708 TR = @:Dl = @ 


182 
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C = A(X) 

IF C = 8 THEN 890 

IF C = 255 THEN 3128 

IF TR + 8 ~*~ Dl * C > 255 THEN 279 
TR=TR+8°* Dl *¥*C 

Dl = Dl +1 


POKE A,TR 
A=A+]1 
TR = O8:D1l = G 
GOTO 2204 
POKE A,TR:A = A + 1:POKE A,@ 
A = A + 1:POKE A,@ 
L=A- Al 
POKE BA + (SN * 2) + 1,INT ((A - BA - L) / 256) 
POKE BA + (SN * 2),FN MOD(A — BA — L) 


VTAB 23:CALL - 958:PRINT “ANOTHER SHAPE (Y/N): 
"> :sGOSUB 948 
IF AS = "N" THEN 1120 


SN = SN + 1:IF SN > N THEN SN = SN - 1:PRINT “SO 
RRY, SHAPE TABLE IS FULL": GOTO 1129 
REM ENTER SHAPE 


VTAB 22:PRINT “SHAPE NUMBER: ";SN 
MA = O@:L = 0 

COLOR= 15 

X = 20:Y = 28 

REM SET UP INITAL MODES 


C$ = "MODE: PLOT":D$ = “UP "sC = 1:D = @ 
O = SCRN( X,Y):COLOR= 2:PLOT X,Y 
VTAB 23:CALL - 958:VTAB 23:PRINT CS;" DIREC 


TION: “:DS::HTAB 1 

GET A$:IF ASC (A$) > 96 AND ASC (AS) < 123 THEN 
AS = CHRS (ASC (AS) — 32) 

F = PEEK ( - 16336) + PEEK ( - 16336) 

IF AS = CHRS (27) THEN 154 

“X" THEN 610 

“C" THEN 639 

"I" OR AS = CHRS (11) THEN 662 


IF AS = "M"“ OR AS = CHRS (18) THEN 6792 
IF AS = "J" OR AS = CHRS (8) THEN 682 
IF AS = “K" OR AS = CHRS (21) THEN 699 
IF AS = " " THEN 780 
IF AS = “R" THEN 8298 
PRINT CHRS (7);: GOTO 489 
C = NOT C:C$ = “PLOT ":IF NOT C THEN CS = "NOPL 
OT oe 
CS = "MODE: “ + CS: GOTO 48¥ 
VTAB 23:CALL - 958:PRINT "CLEAR? (Y/N): ";:GOSU 
B 949 
IF AS = "N" THEN HTAB 1: GOTO 489 
GOTO 400 
DS = "UP "sD = @: GOTO 482 
DS = “DOWN “:D = 2: GOTO 484 
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DS = "LEFT ":D = 3: GOTO 489 

D$ = “RIGHT":D = 1: GOTO 489 

IF D = 8 AND Y = @ THEN 479 

IF D = 1 AND X = 39 THEN 479 

IF D = 2 AND Y = 39 THEN 479 

IF D = 3 AND X = 8 THEN 479 

COLOR= O:PLOT X,Y:COLOR= 15:IF C THEN PLOT X,Y 


ON D GOTO 778,788,799 


Y = Y - 1: GOTO 808 
X = X + 1: GOTO 898 
Y = Y + 1: GOTO 888 
X=X-1l 


Ty = 4 * C + D:sA(MA) = TY:MA = MA + 1 
GOTO 478 


VTAB 23:CALL - 958:PRINT "RESET? (Y/N): ";:GOSU 

B 942 

IF AS = "N" THEN HTAB 1: GOTO 482 

GR 

VTAB 23:CALL - 958:INPUT "ENTER X: ";A$:X = VAL 
(AS):IF X < 89 OR X > 39 THEN 859 

VTAB 23:CALL - 958:INPUT "ENTER Y: ";AS$S:Y = VAL 
(AS):IF Y < @ OR Y > 39 THEN 862 

MAX = Q 

GOTO 450 


IF Dl = 8 THEN 218 

IF A(X + 1) < 4 AND A(X + 1) < > O THEN 2190 

IF A(X + 1) = @ THEN Dl = 2:X = X + 1: GOTO 9398 

Dl =1 

POKE A,TR:A = A + 1:TR = 8: GOTO 250 

GET AS$:IF ASC (A$) > 96 AND ASC (AS) < 123 THEN 

AS = CHRS (ASC (A$) = 32) 

IF AS < > "“"yY" AND AS < > "N" THEN 9498 

PRINT A$: RETURN 

TEXT :HOME 

PRINT "SHAPE TABLE GENERATOR WILL HELP YOU DRAWH 
I-RESOLUTION SHAPE TABLES FOR USE IN YOUR PROG 

RAMS. " 

PRINT 

PRINT "THE KEYS I, J, K, AND M CONTROL DIREC- T 
ION AND ARE USED FOR UP, LEFT, RIGHT, AND DOWN 

RESPECTIVELY. THE ARROW KEYS MAY ALSO BE USED, 
IF DESIRED." 

PRINT 

PRINT "THE SPACE BAR WILL MOVE THE CURSOR IN T 

HE DIRECTION DESIRED. TO CHANGE FROM" 

PRINT "PLOT TO NO-PLOT USE THE X KEY. THE Cc" 

PRINT "KEY WILL CLEAR THE SHAPE SO YOU MAY" 

PRINT "START OVER. R WILL RESET THE COORDINATES" 

PRINT "TO ALLOW YOU TO BEGIN THE SHAPE AT A":PRI 

NT "POINT OTHER THAN THE CENTER." 

PRINT 

PRINT "RESPOND TO ALL QUESTIONS (Y/N)":PRINT 

PRINT "PRESS <RETURN> TO CONTINUE..."; 

GET AS:IF A$ < > CHRS (13) THEN 1199 
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11196 PRINT :HOME :RETURN 

1120 PRINT "BSAVE";N9$;",A";BA;",L";A -— BA + 2 
11398 TEXT :HOME 

1149 POKE 115,Ml1:POKE 116,M2 

1158 PRINT CHR$ (4)"RUN MENU" 
1169 REM 

1170 REM 

11890 REM WHEN USING THE TABLE 
1198 REM AT A LATER DATE, SET 
1200 REM THE BEGINNING ADDRESS 
1219 REM OF THE SHAPE TABLE IN 
1228 REM MEMORY LOCATIONS SE8 
1230 REM & SE9, LOW BYTE FIRST 
1249 REM 

12598 REM ALSO, IT IS A GOOD IDEA 
1260 REM TO SET HIMEM BELOW 

1276 REM THE TABLE'S STARTING 
1280 REM ADDRESS TO PROTECT IT 
1296 REM 
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13. Opening Ceremonies 


Welcome to the welcome! 

This program is the high-resolution demonstration that spells APPLE 
GAMES. This is the second screen displayed when you boot the Apple 
Games disk. 

After studying the program listing, you may discover how to do a few 
tricks with your Apple. Opening Ceremonies uses a small shape table and 
the HPLOT function to create the ‘“‘sign-board”’ effect that is displayed 
when the program is run. This same effect can be used (with modifica- 
tions) to display virtually any message. 


Program Instructions 


1. If you are selecting the game from the Main Menu, choose 13. If you 
are not using the menu, run the program. 


2. The demonstration screen will be displayed. 


3. Press <ESC> to exit to the Main Menu. 


Programming Notes 


10-30 Load and initialize shape table 
49-50 Initialize display screen 

60 Fill top half of screen with color 
710-9 Randomly choose letter order 
1D@D Initialize pointers 

110-12 Choose letter to display next 
130 Set color 

149 Check for keypress 

159-17 Finish displaying letters 
180-24 Execute special effects on screen 
250-260 Loop and repeat the demonstration screen 
27 Position and print letter A 

28O Position and print letter P 

290 Position and print letter P 

30D Position and print letter L 

310 Position and print letter E 

320 Position and print letter G 

330 Position and print letter A 
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34D 


Position and print letter M 


350 Position and print letter E 

360 Position and print letter S 

370-39 Randomly change directions 

4B@G Routine to draw second shape 

410 Routine to draw first shape 

426-999 Check for <ESC> being pressed, if so run the Main 

Menu program 

1DO@O-1030 Plot letter A 

110@-112G Plot letter P 

120@ Plot letter L 

130@0-133@ Plot letter E 

1400-1430 Plot letter G 

15O@@G-151O Plot letter M 

1600-1630 Plot letter S 

Opening Ceremonies. 

19 REM OPENING CEREMONIES 

20 PRINT “BLOAD ONE SHPS" 

30 POKE 233,78:POKE 232,32 

49 HGR 

50 HOME :VTAB 22:PRINT TAB( 108);"PRESS <ESC> FOR ME 
NU"“:VTAB 1 

60 HCOLOR= 3:FOR X = @ TO 169:HPLOT @,X TO 279,X:NE 
XT 

72 C = INT (RND (1) * 8):Cl = INT (RND (1) * 8) 

80 IF Cl < > @ AND Cl < > 3 AND Cl < »> 4 AND Cl 
<« > 7 ANDC< > @ ANDC< > 3 ANDC< »> 4 AN 
DC < > 7 THEN 1982 

99 IF Cl + 3 = C OR C + 3 = Cl THEN 72 

122 FOR X = 1 TO 10:A(X) = O@:NEXT 

112d Z = INT (RND (1) * 15):IF Z < 1 OR Z> 198 THEN 1 
19 

122 IF A(Z) < > O THEN 110 

139d HCOLOR= C:IF Z > 5 THEN HCOLOR= Cl 

149g GOSUB 422 

15d A(Z) = 1:ON ZGOSUB 279,280,290, 300,310,320, 330,3 
49,358,360 

162 FOR W = 1 TO 18:IF A(W) = @ THEN 112 

172 NEXT 

186 ROT= @ 

19¢ A = @:B = 98:ST = 1:GOSUB 379 

282 GOSUB 429 

219 A = 6:B = 279:ST = 1:GOSUB 378 

222 GOSUB 419 

230 A = 0:B = 160:ST = - 1:GOSUB 379 

249 GOSUB 482 

2502 GOTO 790 

260 END 


79 


270 


288 


1868 


1818 


1928 


1830 
1108 


1119 


X = 380:Y = 15:GOSUB 1000:X = 31:Y = 16:GOSUB 19090 
0 :RETURN 

X = 88:Y = 12:GOSUB 1100:X = 81:Y = 13:GOSUB 119 
Q:RETURN 

X = 1380:Y = 12:GOSUB 1190:X = 131:Y = 13:GOSUB 1 
108 :RETURN 

X = 180:Y = 15:GOSUB 12038:X = 181:Y = 16:GOSUB 1 
209 : RETURN 

X = 195:Y = 15:GOSUB 13900:X = 196:Y = 16:GOSUB 1 
386: RETURN 

X = 15:Y = 82:GOSUB 1400:X = 16:Y = 83:GOSUB 149 
@:RETURN 

X = 65:Y = 85:GOSUB 100908:X = 66:Y = 86:GOSUB 1908 
9:RETURN 


X = 115:Y = 85:GOSUB 1500:X = 116:Y = 86:GOSUB 1l 
509:RETURN 

X = 165:Y = 85:GOSUB 1300:X = 166:Y 
309:RETURN 

X = 215:Y = 85:GOSUB 1600:X = 216:Y 

600 :RETURN 

Q = RND (1) * 10:IF Q > 5 THEN ST = - ST 

IF ST < > ABS (ST) THEN C = A:A = B:B =C 
RETURN 

SCALE= 28:FOR X = A TO B STEP ST:XDRAW 2AT 279,X 
:GOSUB 420:NEXT :RETURN 

SCALE= 17:FOR X = A TO B STEP ST:XDRAW LAT X,167 
:GOSUB 428:NEXT :;:RETURN 

P = PEEK ( - 16384):POKE - 16368,@:IF P < > 15 
5 THEN RETURN 

PRINT "RUN MENU" 

END 

HPLOT X + 14,Y + 15 TO X + 39,Y + 15 TO X + 43,Y 
+ 17 TO X + 48,Y + 21 TO X + 58,Y + 26 TO X + 5 
0,Y + 56 TO X + 14,Y + 58 TO X + 19,Y + 48 TO X 

+ 8,Y + 46 TO X + 6,Y + 43 TO X + 5,Y + 39 TO X 

+ 5,Y + 37 TO X + 6,Y + 34 TO X + 19,Y + 39 TO X 
+ 14,Y + 28 TO X + 48,Y + 28 TO X + 39,Y + 25 T 

OX + 38,Y + 24 TO X + 36,Y + 23 TO X + 14,Y + 2 
3 

HPLOT X + 14,Y + 23 TO X + 11,Y + 21 TO X + 11,Y 
+ 17TO X + 14,Y + 15 

HPLOT X + 18,Y + 34 TO X + 40,Y + 34 TO X + 40,Y 
+ 40 TO X + 18,Y + 40 TO X + 16,Y + 39 TO X +1 
5,Y + 37 TO X + 15,Y + 36 TO X + 16,Y + 35 TO X 

+ 18,Y + 34 

RETURN 

HPLOT X + 5,Y + 20 TO X + 39,Y + 20 TO X + 43,Y 

+ 22 TO X + 46,Y + 24 TO X + 48,Y + 27 TO X + 50 
7X + 31 TO X + 580,Y + 39 TO X + 48,Y + 43 TO X + 
46,Y + 46 TO X + 43,Y + 48 TO X + 39,Y + 50 TO 

X + 15,Y + 58 TO X + 15,Y + 78 TO X + 5,Y + 70 T 

OX + 5,Y + 20 

HPLOT X + 15,Y + 30 TO X + 36,Y + 38 TO X + 39,Y 
+ 32 TO X + 40,Y + 34 TO X + 48,Y + 36 TO X + 3 
9,Y + 38 TO X + 36,Y + 40 TO X + 15,Y + 48 TO X 
+ 15,Y + 38 


86:GOSUB 1 


86:GOSUB 1 
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1120 
12060 


1300 


1319 


1320 


1330 


1400 


1419 


14290 


1430 
1598 


1519 
1699 


1619 


RETURN 

HPLOT X + 5,Y - 5 TO X + 15,Y - 5 TO X + 15,Y + 

50 TO X + 5,Y + 58 TO X + 5,Y - 5:RETURN 

HPLOT X + 16,Y + 15 TO X + 39,Y + 15 TO X + 44,Y 
+ 17 TO X + 49,Y + 22 TO X + 58,Y + 25 TO X + 5 


0,Y + 28 TO X + 49,Y + 31 TO X + 47,Y + 33 TO X 

+ 44,Y + 34 TO X + 39,Y + 35 TO X + 15,Y + 35 TO 
X + 15,Y + 37 TO X + 16,Y + 39 TO X + 19,Y + 40 
TO X + 480,Y + 40 TO X + 45,Y + 42 TO X + 46,Y + 
44 TO X + 46,Y + 46 TO X + 45,Y + 48 TO X + 40, 

Y + 50 

HPLOT X + 40,Y + 50 TO X + 16,Y + 50 TO X + 13,Y 
+ 49 TO X + 6,Y + 42 TO X + 5,Y + 40 TO X + 5,Y 
+ 25 TO X + 6,Y + 22 TO X + 11,Y + 17 TO X + 13 
,Y + 16 TO X + 16,Y + 15 

HPLOT X + 19,Y + 23 TO X + 38,Y + 23 TO X + 40,Y 
+ 25 TO X + 480,Y + 27 TO X + 23,Y + 29 TO X +1 
5,Y + 29 TO X + 15,Y + 27 TO X + 16,Y + 25 TO X 
+ 17,Y + 24 TO X + 19,Y + 23 

RETURN 

HPLOT X + 16,Y + 20 TO X + 50,Y + 20 TO X + 50,Y 
+ 59 TO X + 48,Y + 63 TO X + 46,Y + 66 TO X + 4 
3,Y + 68 TO X + 39,Y + 70 TO X + 15,Y + 70 TO X 


+ 10,Y + 68 TO X + 9,Y + 66 TO X + 9,Y + 64 TO X 
+ 10,Y + 62 TO X + 15,Y + 68 TO X + 36,Y + 69 T 

OX + 38,Y + 59 TO X + 40,Y + 56 TO X + 40,Y + 5 

9 TO X + 16,Y + 580 TO X + 12,Y + 48 

HPLOT X + 12,Y + 48 TO X + 9,Y + 46 TO X + 7,Y + 
43 TO X + 5,Y + 39 TO X + 5,Y + 31 TO X+7,Y + 
27 TO X + 9,Y + 24 TO X + 12,Y + 22 TO X + 16,Y 
+ 29 

HPLOT X + 19,Y + 380 TO X + 40,Y + 30 TO X + 40,Y 
+ 49 TO X + 19,Y + 40 TO X + 16,Y + 38 TO X +1 


5,Y + 36 TO X + 15,Y + 34 TO X + 16,Y + 32 TO X 
+ 19,Y + 390 
RETURN 
HPLOT X + 27,Y + 36 TO X + 40,Y + 15 TO X + 59,Y 
+ 15 TO X + 50,Y + 5089 TO X + 49,Y + 50 TO X + 4 
O,Y + 34 TO X + 32,Y + 50 TO X + 23,Y + 58 TO X 
+ 15,Y + 34 TO X + 15,Y + 50 TO X + 5,Y + 58 TO 
X + 5,Y + 15 TO X + 15,Y + 15 TO X + 28,Y + 36 
RETURN 
HPLOT X + 16,Y + 15 TO X + 39,Y + 15 TO X + 44,Y 
+ 16 TO X + 45,Y + 18 TO X + 45,Y + 20 TO X + 4 
4,Y + 22 TO X + 39,Y + 24 TO X + 17,Y + 24 TO X 
+ 15,Y + 26 TO X + 15,Y + 27 TO X + 17,Y + 28 TO 
X + 40,Y + 28 TO X + 44,Y + 30 TO X + 47,Y + 32 
TO X + 49,Y + 35 TO X + 50,Y + 38 TO X + 50,Y + 
49 TO X + 49,Y + 43 TO X + 47,Y + 46 
HPLOT X + 47,Y + 46 TO X + 44,Y + 48 TO X + 40,Y 
+ 50 TO X + 16,Y + 50 TO X + 11,Y + 48 TO X +1 
0,Y + 46 TO X + 10,Y + 44 TO X + 11,Y + 42 TO X 
+ 16,Y + 41 TO X + 38,Y + .41 TO X + 40,Y + 39 TO 
X + 49,Y + 38 TO X + 38,Y + 36 TO X + 16,Y + 36 
TO X + 12,Y + 34 TO X + 9,Y + 32 TO X + 7,Y + 2 
9 TO X + 6,Y + 28 TO X + 6,Y + 24 
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1620 HPLOT X + 6,Y + 24 TO X + 9,Y + 19 TO X + 12,Y + 
17 TO X + 16,Y + 15 
1630 RETURN 
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14. Master Catalog 


This is a program that you may find useful. If you are like many 
computer-enthusiasts, you have a large collection of disks. On those disks 
are assorted programs and who knows what else. Precisely the point of 
Master Catalog. It will allow you to organize and keep track of the 
program names so you can find them easily. It is a short data-base 
Management program that acts as a filing system for your disks and 
programs. 

You can search by program name, language and type, record number, 
date entered (into the system), and disk location (which disk the program 
is on). You can even sort all the records in your file. 

As you use the program, note that many of the routines do special 
functions, such as allowing string input that includes virtually any char- 
acter. There is also a routine that allows the analysis and reformatting of 
entered dates. The sorting routine used is QuickSort. The detailed expla- 
nation of these routines 1s beyond the scope of this book, but information 
on how they work is in BASIC Tricks for the Apple (Howard W. Sams 
#22208). 


Program Instructions 


1. If you are selecting the program from the Main Menu, choose 14. If 
you are not using the menu, run the program. 


2. The first requirement is entering the date. Your response should be in 
the format MM/DD/YY. 


3. After you have entered the date, the following menu choices will be 
displayed: 


1) ENTER LISTING 
2) CHANGE LISTING 
3) DELETE LISTING 
4) SEARCH LISTING 
5) PRINT LISTING 

6) SORT LISTINGS 

7) EXIT PROGRAM 


4. To do any of the functions listed on the menu, press the number of 
that function. 
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5. Each function is self-prompting; follow the directions and answer the 


10. 


ll. 


questions as they appear on the screen. 


. ENTER LISTING will add a record to the system. A record consists 


of the following information: 


PROGRAM NAME The file’s name as it appears in the disk catalog. 
It can be up to 35 characters long. 


LANGUAGE TYPE Enter the language type for the file, if applica- 
ble. 


PROGRAM TYPE Choose from the types shown on the screen. 
They are: 


1) Game 

2) Business 
3) Utility 

4) Text File 
5) Education 
6) Other 


DATEENTERED This is the system date you entered when you first 
Started the program. 


DISK LOCATION This is any location that helps you locate the disk 
at a later time. This field allows a maximum of five characters. 


. CHANGE LISTING allows you to change any information that was 


entered through the ENTER LISTING function. 


. DELETE LISTING allows individual records to be deleted from the 


data base. You will need to enter the record number of the record to 
be deleted. Then the record is displayed and you are queried as to 
whether you want to delete the record shown. 


. SEARCH LISTING searches the file for a specific record or for all 


records that match a “keyword”’ that you enter. To search for a 
match, specify the record to recall or the field to use. 


PRINT LISTING displays all records. There is a pause after each 
screen of information. Press <RETURN> to proceed to the next 
screen. 


SORT LISTINGS sorts the records in the data base by any specific 
field. Sorting is done in ascending order. 
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12. EXIT PROGRAM saves your modified data base to disk and then 


runs the Main Menu. 


Programming Notes 


10-20 Program initialization 

30-10@ Open and read program file from disk 

11B-13@ Program initialization 

200-24 String input routine 

250-305 Date analysis routine 

325-330 Get a Y/N response 

35@ Print underline characters for input field 

4D Invalid record number error message 

5O@O-52G Get and analyze date 

600-719 Print program menu 

720-730 Prompt for choice and validate response 

74© Branch to appropriate program section 

1DDO-1160 Routine for inputting a record 

2@@@-226@ Routine for changing a record 

3QOGO-315O Routine for deleting a record 

40@G-440@ _ Routine for searching records 

S5OOGO-513D Routine for displaying records 

6WDO-621D Routine for sorting records 

71@OO-709G _—— Save file, exit program, and transfer to the Main Menu 

Master Catalog. 

19 REM MASTER CATALOG 

29 DS = CHRS (4):0P$ = DS + “OPEN":CL$ = D$ + "CLOS 
E":RD$ = DS + “READ":WRS = DS + "WRITE" 

30 ONERR GOTO 99 

49 PRINT DS$;"UNLOCK PROGRAMS" 

58 PRINT OP$;"PROGRAMS":PRINT RD$; "PROGRAMS" 

60 INPUT N:DIM TS(N + 50,5):IF N = 8 THEN 180 

76 FOR X = 1 TO N:FOR Y = 1 TO 5 

89 MX = 35:GOSUB 200:TS$(X,Y) = I$:NEXT :NEXT : GOTO 

108 

98 N = @ 

180 PRINT CL$:POKE 216,98 

118 PT$(1) = "GAME":PT$(2) = "BUSINESS":PT$(3) = "UT 
ILITY":PT$(4) = "TEXT FILE":PT$(5) = "EDUCATION" 
:PTS(6) = "OTHER" 

120 NT = 6 

130 GOTO 590 

200 AS = ce 98 $ Is = oe ne 

205 GET A$:A$ = LEFTS (A$,1):A = ASC (A$) 

218 IF A = 13 THEN PRINT :RETURN 
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IF A = 8 AND LEN (I$) > @ THEN IS = MIDS (IS,1,L 
EN (I$) - 1):PRINT AS$;CHRS (95);AS; 

IF A = 8 THEN 285 

IF LEN (IS) = MX THEN 205 

IF A < 32 OR A > 98 THEN 285 

PRINT AS; 

I$ = I$ + A$: GOTO 2985 

MM = @:DD = @:YY = @ 

K = LEN (1I$):IF K < 6 OR K > 8 THEN 305 

MM = VAL (I$):FOR J = 1 TO K 

IF VAL (MIDS (1I$,J,1)) = @ AND MIDS (IS$,J,1) < 

> "9" THEN DD = yYy:YY = J +1 

NEXT :IF DD = @ THEN 305 

DD = VAL (MIDS (I$,DD,2)):YY = VAL (MID$ (I$,YY) 


< 1 OR MM > 12 THEN 3985 
IF DD < 1 OR DD > 31 THEN 395 
= 2 AND (INT (YY / 4) * 4 < > YY) AND (IN 

T (yy / 400) * 400 < > YY) AND DD > 28 THEN 305 

IF (MM .= 4 OR MM = 6 OR MM = 9 OR MM = 11) AND D 

D > 38 THEN 305 

I$ = RIGHTS ("O0" + STRS (MM),2) + "/" + RIGHTS 
("8" + STRS (DD),2) + "/" + RIGHTS ("08" + STRS 
(YY) ,2):RETURN 

I$ = "":RETURN 

GET CHS:IF CHS < > “Y" AND CHS < > "N" THEN 32 

5 

PRINT CHS: RETURN 

FOR X = 1 TO MX:PRINT CHRS (95);:NEXT :FOR X = 1 
TO MX:PRINT CHRS (8);:NEXT :RETURN 

PRINT :PRINT “SORRY, INVALID RECORD NUMBER |! 
"sFOR X = 1 TO 1800:NEXT :RETURN 

HOME 

PRINT "TODAY'S DATE (MM/DD/YY): "::MX = 8:GOSUB 
350:GOSUB 208:GOSUB 25@:IF I$ = "" THEN 5190 

DTS = I$ 

TEXT :HOME 

PRINT TAB( 9)"MASTER PROGRAM CATALOG":PRINT TAB( 
16)DTS$ 

POKE 32,8 

PRINT :PRINT 

PRINT “1) ENTER LISTING" 

PRINT "2) CHANGE LISTING" 

PRINT "3) DELETE LISTING" 

PRINT "4) SEARCH LISTINGS" 

PRINT "5) PRINT LISTINGS" 

PRINT "6) SORT LISTINGS" 

PRINT "7) EXIT PROGRAM" 

POKE 32,0 

VTAB 20:PRINT "CHOICE (1-7): "; 

GET CH$:CH = VAL (CHS):IF CH < 1 OR CH > 7 THEN 


PRINT :ON CH GOTO 1900,2000,3000,4000,5000,6000, 


1816 
1020 
1830 
1840 
1856 
1868 
1876 


1389 


1996 
1100 
1110 
11298 
11390 
1140 
115@ 
1169 
20008 


2019 


2020 
2830 
2040 


2858 
2068 
28706 


2088 
2898 
2180 
2110 
2128 
21308 
2148 
2158 


2160 
2170 
2186 
2196 
2200 
2216 
2220 
22308 
2246 
2258 


2268 
3800 


3810 


PRINT "THIS WILL BE PROGRAM # ";N + 1:PRINT 
PRINT "WHAT IS THE PROGRAM NAME ?" 


MX = 35:GOSUB 358:GOSUB 20@:TS(N + 1,1) = I$ 
VTAB 7:PRINT “LANGUAGE TYPE: "; 

MX = 18:GOSUB 358:GOSUB 200:TS$(N + 1,2) = I$ 
VTAB 9:PRINT “PROGRAM TYPE:":PRINT 

FOR X = 1 TO NT:PRINT " "sX;")  “;PTS(X):NEX 


T :PRINT 
MX = 1:GOSUB 359:GOSUB 2008:T = VAL (I$):IF T< 1 
OR T > NT THEN 19860 
TS(N + 1,3) I$ 
TS(N + 1,4) DTS 
PRINT :PRINT “DISK LOCATION: "“; 
MX = 5:GOSUB 358@:GOSUB 200:TS(N + 1,5) = IS 
N=N4+1 
PRINT :PRINT "MORE ENTRIES (Y/N): 
GOSUB 325:IF CHS = "Y" THEN 19882 
GOTO 680 
IF N = @ THEN PRINT "SORRY, THERE ARE NO RECORDS 
..-":FOR J = 1 TO 1000:NEXT : GOTO 600 
HOME :PRINT "WHAT IS THE RECORD NUMBER OF THE LI 
STINGYOU WISH TO CHANGE ? " 
MX = 4:GOSUB 352 
GOSUB 200:IF IS = “" THEN 680 
CH = VAL (I$):IF CH < 1 OR CH > N THEN GOSUB 482 
: GOTO 20806 
HOME 
PRINT "RECORD NUMBER: ";CH 
PRINT :FOR X = 1 TO 5:PRINT X;".":PRINT :NEXT :P 
OKE 32,4 
VTAB 3:PRINT "NAME: ";TS(CH,1) 
PRINT :PRINT “LANGUAGE: ";TS(CH,2) 
PRINT :PRINT "PGM TYPE: ";PTS(VAL (TS(CH,3))) 
PRINT :PRINT “DATE ENTERED: ";TS(CH,4) 
PRINT :PRINT “DISK LOCATION: ";TS(CH,5) 
POKE 32,8:PRINT :PRINT 
PRINT :PRINT “NUMBER OF ITEM TO CHANGE (1-5): "; 
GET CH$:Q = VAL (CHS):IF Q < 1 OR Q > 5 THEN 215 
g 
PRINT Q:PRINT :PRINT "CHANGE TO WHAT: 


IF Q = 1 THEN MX = 35:PRINT 
IF Q = 2 THEN MX = 16 

IF Q = 3 THEN MX = 1 

IF Q = 4 THEN MX = 8 

IF Q = 5 THEN MX = 5 


GOSUB 358:GOSUB 20@ 
IF Q = 4 THEN GOSUB 258 
TS(CH,Q) = IS 


PRINT :PRINT "MORE CHANGES (Y/N): ";:GOSUB 325:I 
F CHS = "Y" THEN 29892 
GOTO 609 


IF N = @ THEN PRINT "SORRY, THERE ARE NO RECORDS 
---"sFOR J = 1 TO 1008:NEXT : GOTO 600 

HOME :PRINT “WHAT IS THE RECORD NUMBER OF THE LI 
STINGYOU WISH TO DELETE ? " 
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MX = 4:GOSUB 3590 

GOSUB 290 

CH = VAL (1I$):IF CH < 1 OR CH > N THEN GOSUB 40g 
: GOTO 3880 


HOME 

PRINT “RECORD NUMBER: ";CH 

PRINT :FOR X = 1 TO 5:PRINT X;".":PRINT :NEXT :P 
OKE 32,4 

VTAB 3:PRINT "NAME: ";TS$(CH,1) 

PRINT :PRINT "LANGUAGE: ";T$(CH,2) 

PRINT :PRINT "PGM TYPE: ";PT$(VAL (TS$(CH,3))) 


";TS$ (CH, 4) 
";T$(CH,5) 


PRINT :PRINT "DATE ENTERED: 
PRINT :PRINT “DISK LOCATION: 
POKE 32,08:PRINT :PRINT 


PRINT "O.K. TO DELETE (Y/N): ";:GOSUB 325:IF CHS 


= "N" THEN 6909 

FOR X = 1 TO 5:T$(CH,X) = TS$(N,X):NEXT :N =N - 
1: GOTO 600 

IF N = @ THEN PRINT “SORRY, THERE ARE NO RECORDS 
---':FOR J = 1 TO 1800:NEXT : GOTO 600 

HOME :PRINT “WOULD YOU LIKE TO SEARCH BY:":PRINT 
PRINT " 1) RECORD NUMBER" 

PRINT " 2) PROGRAM NAME" 

PRINT " 3) LANGUAGE" 

PRINT " 4) PROGRAM TYPE" 

PRINT “ 5) DATE ENTERED" 

PRINT " 6) DISK LOCATION" 

PRINT :PRINT :PRINT "WHICH CHOICE (1-6): "; 


GET CH$:CH = VAL (CH$):IF CH < 1 OR CH > 6 THEN 
40906 


PRINT CH:PRINT :PRINT "KEYWORD FOR SEARCH: 

IF CH = 1 THEN MX = 4 

IF CH = 2 THEN MX = 35:PRINT 

IF CH = 3 THEN MX = 10 

IF CH = 4 THEN MX = 1 

IF CH = 5 THEN MX = 8 

IF CH = 6 THEN MX = 5 

GOSUB 358:GOSUB 209:Q$ = I$ 

IF CH = 5 THEN GOSUB 250:QS = IS:IF Q$ = "" THEN 
PRINT :PRINT "ILLEGAL DATE FORMATI":FOR X = 1 


TO 1000:NEXT : GOTO 4000 
HOME :PRINT TAB( 15):FLASH :PRINT "SEARCHING" :NO 
RMAL :POKE 34,2 


IF CH = 1 THEN 4389 

FOR X = 1 TON 

IF T$(X,CH - 1) < > Q$ THEN 4338 

HOME 

PRINT :PRINT “RECORD NUMBER: ";X 
PRINT :PRINT “NAME: ";TS$(X,1) 

PRINT :PRINT "LANGUAGE: ";TS$(X,2) 
PRINT :PRINT "PGM TYPE: ";PTS(VAL (TS$(X,3))) 
PRINT :PRINT "DATE ENTERED: ";TS(X,4) 
PRINT :PRINT “DISK LOCATION: "“";TS$(X,5) 
IF CH = 1 THEN 4340 


VTAB 23:PRINT 


“PRESS <RETURN> TO CONTINUE..."; 
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4320 
4330 
4340 
4350 


4360 
4370 
4380 


4390 
4466 
58008 


5819 
58208 
5830 
5840 


58598 
58608 
5076 
5880 
5898 
5100 
5110 


5128 
5139 
6000 


6805 
6018 
6020 
6030 
6040 
6050 
6060 
6070 


6089 


6896 
6108 
6110 
6128 
6130 
6149 
6154 


6160 
6170 


6189 


GET P$:IF P$ < > CHRS (13) THEN 4329 

NEXT 

POKE 34,0 
VTAB 23:HTAB 1:CALL - 958:FLASH :PRINT "END OF 
SEARCH...";:NORMAL :PRINT "PRESS <RETURN>..."; 
GET PS$:IF P$ < > CHRS (13) THEN 4369 

GOTO 680 
X = VAL (Q$):IF X < 1 OR X > N THEN VTAB 10:GOSU 
B 4808: GOTO 680 

PRINT :PRINT "RECORD NUMBER: ";X 

GOTO 4230 

IF N = @ THEN PRINT "SORRY, THERE ARE NO RECORDS 
---"s:FOR J = 1 TO 1000:NEXT : GOTO 6006 

C = @:FOR X = 1TON 

C= C+ 1l:IF C = 1 THEN HOME 


INVERSE :PRINT X;:NORMAL :PRINT " ";TS(X,1) 
PRINT " "sT$(X,2);" ";PTS(VAL (T$(X,3)));" " 
7T$S(X,4);" "sT$(X,5) 

PRINT 


IF C < 7 THEN 51980 

VTAB 23:PRINT "PRESS <RETURN> TO CONTINUE..."; 
GET CH$:IF CH$ < > CHR$ (13) THEN 5989 

VTAB 23:HTAB 1:PRINT :C = @ 


NEXT 
VTAB 23:HTAB 1:CALL <- 958:PRINT "END OF LISTING 
-++PRESS <RETURN>..."; 


GET CH$:IF CH$ < > CHRS$ (13) THEN 51298 

GOTO 609 

IF N = 0 THEN PRINT "SORRY, THERE ARE NO RECORDS 
eee’ s:FOR J = 1 TO 1008:NEXT : GOTO 690 

HOME :PRINT "WOULD YOU LIKE TO SORT BY:":PRINT 


PRINT " 1) PROGRAM NAME" 
PRINT " 2) LANGUAGE" 
PRINT " 3) PROGRAM TYPE" 
PRINT " 4) DATE ENTERED" 
PRINT " 5) DISK LOCATION" 


PRINT :PRINT :PRINT "WHICH CHOICE (1-5): "; 

GET CH$:CH = VAL (CH$):IF CH < 1 OR CH > 5 THEN 
6070 

PRINT CH:HOME :VTAB 8:HTAB 190:PRINT "SORTING - O 
NE MOMENT!" 


REM - QUICKSORT 
P= 1:Q2 = N:TO = @ 
IF P > = Q THEN 62002 


Q+il 
VS THEN 6139 


S$ = T$(P,CH):I = P:J 
J - 1:IF TS$(J,CH) 
I + 1:IF TS$(1I,CH) VS AND I < N THEN 6148 

F J > I THEN FOR X = TO 5:TS = TS$(1,X):TS$(I,X 
) = T$(J,X):T$(J,X) = TS:NEXT : GOTO 613d 

FOR X = 1 TO 5:TS = TS(P,X):T$(P,X) = TS(J,X):TS$ 
(J,X) = TS:NEXT 

IF (J - P) < (Q - J) THEN ST(TO +1) = J + 1:ST( 
TO + 2) = Q:Q = J - 1: GOTO 6198 

ST(T@ + 1) = P:ST(TO + 2) = JT - 1:P = IT +1 


Mm Av il 
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6190 TO = TO + 2: GOTO 6110 

6280 IF TO < > @ THEN Q = ST(TO):P = ST(TO - 1):TO = 
TO - 2: GOTO 61190 

6219 GOTO 600 

72880 PRINT OPS;"PROGRAMS":PRINT DS$;"DELETE PROGRAMS": 
PRINT OPS;"PROGRAMS" 

7810 PRINT WRS; "PROGRAMS" 

7822 PRINT N:IF N = @ THEN 7870 

7832 FOR X = 1TON 

78428 FOR Y = 1 TO 5 

7850 PRINT TS(X,Y) 

7860 NEXT :NEXT 

7870 PRINT CLS 

7888 PRINT "LOCK PROGRAMS" 

7898 HOME :PRINT :PRINT DS;"RUN MENU" 
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More Books 
for 
Apple Owners! 


INTRODUCING THE APPLE® MACINTOSH™ 


Introduces you to the design philosophy and physica! structure of the Macintosh! M, and explores its displays, key- 
board, mouse, software, accessories, and more. By Connolly and Lieberman. 192 pages, 8 x 9%, softbound. ISBN 
0-672-22361-9. © 1984. 


NO. 22361 2.0. ee eee ee eee ee ee ee eee eee eee $12.95 


APPLE® lle PROGRAMMERS’ REFERENCE GUIDE 


An outstanding reference guide specifically for the Ile that makes needed facts, applications, and other technical 
information readily available at your fingertips. By David L. Heiserman. 416 pages, 5’ x 8%, comb-bound. ISBN 
0-672-22299-X. © 1984. 


0 727-4 |: $19.95 


APPLESOFT FOR THE lle 


A detailed Applesoft programmer’s reference manual written specifically for the !!e and covering all aspects of Ile 
syntax and programming techniques. By Blackwood and Blackwood. 368 pages, 6 x 9, comb-bound. ISBN 
0-672-22259-0. © 1983. 


NO. 22259 201 eee eee eee eee eee ees $19.95 


APPLE® PROGRAMMER’S HANDBOOK 

This single-volume coverage of essential Apple data contains dozens of tested “stock” routines organized by topic, a 
detailed memory map, and much more. By Paul Irwin. 480 pages, 5 x 82, comb-bound. ISBN 0-672-22175-6. © 1984. 
NO. 22175 20 en ee ee ee eee te ee eee ee eee eee teen eens $21.95 


BASIC TRICKS FOR THE APPLE® 


From a seasoned professional comes this collection of ideas, examples, and special Applesoft subroutines to use or 
modify as part of your own Apple programs. By Allen L. Wyatt. 160 pages, 5’ x 8%, softbound. ISBN 0-672-22208-6. 
© 1983. 


C0 2774 | «a $8.95 


APPLE® Il FOR KIDS FROM 8 TO 80 


Whatever your age, you'll think you’re at Computer Camp as these enjoyable and easy to follow, beginner-level BASIC 
Programming instructions help you quickly begin writing your own Apple I!-compatible programs. By Michael P. 
Zabinski and Frank Mazzola. 160 pages, 82 x 11, softbound. ISBN 0-672-22297-3. © 1984. 

No. 22297 200 ce ene eee eee een e eee eben ebennnes $10.95 


ENHANCING YOUR APPLE® Il, Volume 1 (2nd Edition) 


Lets you mix text, low-res, and high-res together anywhere on-screen; have 3-D graphics, overlapping single-line 
colors, and other special effects; tear apart and understand somebody else’s machine-language program, and much 
more. By Don Lancaster. 256 pages, 8’ x 11, softbound. ISBN 0-672-21822-4. © 1984. 

NO. 21822 200. eee ee een een tent en een e eben eens $15.95 


THE APPLE® II CIRCUIT DESCRIPTION 


Gives you a detailed circuit description of all revislons of the Apple Il and Apple Il + motherboard, Including the key- 
board and power supply. By Winston D. Gayler. 176 pages plus foldouts, 8 x 11, comb-bound. ISBN 0-672-21959-X. 
© 1983. 


No. 21959 00 cc ce cece teen e eee e eee e eee e ee eeeee $22.95 
DISKS, FILES, AND PRINTERS FOR THE APPLE? II 


Provides basic-to-advanced details for using disks, files, and printers with an Apple Il, plus hard-to-find advice on pro- 
gramming with sequential-access, random-access, and executive filles. By Blackwood and Blackwood. 216 pages, 
6 x 9, comb-bound. ISBN 0-672-22163-2. © 1983. 

NO. 22163 20... eee ee eee een e eee teeta teen eee eeeees $15.95 


APPLE® Il APPLICATIONS 


Gives you a broad spectrum of tested programming and board-level interfacing applications, including serial and 
parallel 1/0 boards, EPROM or £2PROM boards, remote data acquisition, and more. By Marvin L. De Jong. 256 pages, 
5% x 8%, softbound. ISBN 0-672-22035-0. © 1983. 


NO. 22035 2.0... ce ee eee eee eee eee teen eee e tenes $13.95 
APPLESOFT LANGUAGE (2nd Edition) 


New material quickly introduces you to Applesoft syntax and programming, including advanced programming tech- 
niques, graphics, color commands, sorts, searches, and more. By Blackwood and Blackwood. 288 pages, 6 x 9, comb- 
bound. ISBN 0-672-22073-3. © 1983. 


NO. 22073 201 ee eee eee ee eee eee eee eee e teens $13.95 


MOSTLY BASIC: APPLICATIONS FOR YOUR APPLE® II, Book 1 


Twenty-eight Applesoft programs, including a telephone dialer, digital stopwatch, a spelling test, house-buying 
guide, gas mileage calculator, and many more. By Howard Berenbon. 160 pages, 8’ x 11, comb-bound. ISBN 
0-672-21789-9. © 1980. 


NO. 21789 00 eee ee eee eee eee eee tee nena eens $13.95 


MOSTLY BASIC: APPLICATIONS FOR YOUR APPLE® Il, Book 2 


More fascinating BASIC programs, including three dungeons, eleven household programs, seven on money or invest- 
ment, two that test your level of ESP, and more — 32 in all! By Howard Berenbon. 224 pages, 81% x 11, comb-bound. 
ISBN 0-672-21864-X. © 1981. 


Ask for No. 21864... 0.0... cc eee eee cece eee ne eeneeeeeenenes $12.95 


INTERMEDIATE LEVEL APPLE® Il HANDBOOK 


Hard-to-find, practical info that uses ROM-based Integer BASIC to lead you into Apple 6502 machine and assembly 
language programming. By David L. Heiserman. 328 pages, 6 x 9, comb-bound. ISBN 0-672-21889-5. © 1983. 
NO. 21889 20. cc ec ee eee eee eet eee eet eee eaeeeeees $16.95 


INTIMATE INSTRUCTIONS IN INTEGER BASIC 


Includes much to help you build Integer programs that run smoothly and take full advantage of that dialect’s rapid- 
running characteristics. By Blackwood and Blackwood. 160 pages, 5 x 82, soft. ISBN 0-672-21812-7. © 1981. 
NO. 21812 20 ce ee ee ee ee eee ete ee eee eee eee eee eens $8.95 


These and other Sams Books and Software products are available from better retailers 
worldwide, or directly from Sams. Call 800-428-SAMS or 317-298-5566 to order, or to get 
the name of a Sams retailer near you. Ask for your free Sams Books and Software 
catalog! 


Prices good in USA only. Prices and page counts subject to change without notice. 


Apple is a registered trademark of Apple Computer, Inc. Macintosh is a trademark of Apple Computer, Inc. 


SAMS. 


Apple Games 


e Gives Apple users 11 fun-packed games 
@ Includes 3 other miscellaneous programs 
@ Provides helpful loading instructions 


@ Teaches how to use text, graphics, and sounds in developing your own 
computer games 


¢ Complete program listings provided for every program 


Apple® Games is not only fun, it’s educational. See for yourself how these 
programs work and try your hand at adapting them to produce different 
special effects. 


Machine Requirements: 

Apple® Il Compatible Systems (48K) 
Applesoft in ROM 

1 Disk Drive (DOS 3.3) 


Game Paddles or Joysticks required on selected games 


Howard W. Sams & Co., Inc. 
4300 West 62nd Street, Indianapolis, Indiana 46268 U.S.A. 


$8.95/22394 ISBN: 0-672-22394-7 


